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1.0 Introduction 

The ability to accurately predict the thermomechanical deformation response of 
advanced heterogeneous materials (e.g., multi-phase composites, cellular solids, 
etc.) plays a critical role in the development and practical implementation of these 
strategic materials. Analytical models that predict the effective behavior of com- 
posites are used not only by engineers performing structural analysis of large- 
scale composite components, but also by materials scientists in developing new 
material systems. For an analytical model to fulfill these two distinct functions it 
must be based on a micromechanics approach which utilizes physically based 
deformation and life constitutive models and generates the average (macro) 
response of a composite material given the properties of the individual constitu- 
ents and their geometric arrangement. Only then can such a model be used by a 
materials scientist to investigate the effect(s) of different deformation mechanisms 
on the overall response of the composite in order to identify the appropriate con- 
stituents for a given application. Alternatively, if a micromechanical model is to be 
used in a large-scale structural analysis it must be 1) computationally efficient, 2) 
able to generate accurate displacement and stress fields at both the macro and 
the micro levels and 3) be compatible with the finite element method. Also, as 
advancements in processing and fabrication techniques make it possible to more 
accurately engineer (tailor) the architectures of these advanced composite sys- 
tems, development of a computationally efficient micromechanics analysis tool 
capable of accurately predicting the effect of microstructural details on the internal 
and macroscopic behavior of composites becomes even more important. Such 
computational efficiency is absolutely required because 1) the large number of 
parameters which must be varied in the course of engineering (or designing) com- 
posite (heterogeneous) materials, and 2) the optimization of a material’s micro- 
structure requires the integration of the micromechanics model with optimization 
algorithms. From this perspective, analytical approaches which use closed-form 
expressions to describe the effect of a material’s internal architecture on the over- 
all material behavior are preferable to numerical methods, such as finite element 
or finite difference schemes. 

A number of models presently exist that can fulfill certain aspects of the afore- 
mentioned tasks. However, there are very few working models that are both com- 
putationally efficient and sufficiently accurate both at the micro- and macro-levels. 
One such micromechanics model with the potential of fulfilling both tasks is 
Aboudi’s method of cells [1] and its continuous reinforcement [2] and discontinu- 
ous reinforcement [3] generalizations. The comprehensive capabilities and effi- 
ciency of this method have been documented in references [4] and [5]. 
Consequently, the recently developed, computationally efficient and comprehen- 
sive micromechanics analysis code, MAC/GMC, will now be described: with a pre- 
dictive capability resting entirely upon the fully analytical micromechanics model, 
herein referred to as the generalized method of cells, GMC, [2 and 3] . MAC/GMC 
is a versatile form of research software that “drives" the double or triple periodic 
micromechanics constitutive models based upon GMC. GMC is capable of pre- 
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dieting the response of both continuous and discontinuous multi-phase compos- 
ites with arbitrary internal microstructures and reinforcement shapes. GMC is a 
continuum-based micromechanics model that provides closed-form expressions 
for the macroscopic composite response in terms of the properties, size, shape, 
distribution, and response of the individual constituents or phases that make up 
the material. GMC also utilizes physically based viscoplastic deformation and life 
models for each constituent. Furthermore, expressions relating the internal stress 
and strain fields in the individual constituents in terms of the macroscopically 
applied stresses and strains are available through strain or stress concentration 
factors. These expressions make possible the investigation of failure processes at 
the microscopic level at each step of an applied load history. Similarly, GMC pro- 
vides the capability of studying the influence of bond strength at the fiber/matrix 
interface which has been shown to be an important damage mechanism in com- 
posites [6]. 

MAC/GMC enhances the basic capabilities of GMC by providing a modular 
framework wherein 1) various thermal, mechanical (stress or strain control) and 
thermomechanical load histories can be imposed, 2) different integration algo- 
rithms may be selected, 3) a variety of material constitutive models (both deforma- 
tion and life) may be utilized and/or implemented and 4) a variety of fiber 
architectures (both unidirectional, laminate and woven) may be easily accessed 
through their corresponding representative volume elements contained within the 
supplied library of RVEs or input directly by the user, and 5) graphical post pro- 
cessing of the macro and/or micro field quantities is made available. Conse- 
quently, the availability of MAC/GMC now provides industry, academia and 
government engineers and materials scientists with a comprehensive, computa- 
tionally efficient, user-friendly micromechanics analysis tool that can easily and 
accurately design/analyze multi-phase (composite) materials for a given applica- 
tion. MAC/GMC is also ideally suited for conducting sensitivity/parametric studies 
(i.e., “what-if” scenarios) in the design/analysis of advanced composite materials 
(e.g., MMC/lMCs, PMCs, and CMCs). Figure 1 illustrates the basic flow diagram 
for this modular framework code. Furthermore, since GMC is a continuum-based 
micromechanics model that provides closed form expressions for the macroscopic 
composite response in terms of the properties, size, shape, distribution, and 
response of the individual constituents or phases that make up the material, MAC/ 
GMC can be interfaced directly with standard linear and nonlinear finite element 
analysis packages (through their respective user definable constitutive routines) 
for cost-effective large scale component design and analysis. Currently, such an 
interface exists only for HKS’s nonlinear finite element code, ABAQUS. For clarity 
purposes, when this finite element implementation of MAC/GMC is discussed 
within this manual it will be referred to as FEAMAC, for example see section 4.1 .2. 

The capabilities of this version of MAC/GMC are listed in section 2, whereas 
theoretical and background information on the basic capabilities previously item- 
ized are given in section 3. Section 4 describes in detail the required input for 
using MAC/GMC and will be the most referenced section in the entire manual. 
Section 5 gives some insights into the future modifications planned for MAC/GMC 
and in section 6 examples A-S illustrate and describe the various features of 
MAC/GMC. 
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2.0 Current Capabilities 

In this section the current features/capabilities of MAC/GMC are itemized, with 
those new to this version being denoted by bold type face. 

• Load Types: 

- Thermal, Mechanical, Thermomechanical; Generalized Loading Option 

• Aboudi GMC Models (Reformulated for computational speed): 

. - Double Periodicity Model for continuous reinforcement 

- Triple Periodicity Model for discontinuous/woven reinforcement 

• Library of Representative Volume Elements: 

- Double Periodicity Model: circular fiber representations 

- Triple Periodicity Model: ellipsoidal inclusion, open cell 

• Input / Graphical Output 

- Free Format Input Data 

- Up to 5 x-y data plot files generated for macro and micro (subcell) quantities 

- PATRAN for subcell geometry and color results evaluation, e.g. stress, strains, 
inelastic strains, J 2 , etc., via MACPOST 

• Integration Options: 

- Forward Euler 

- Predictor/Corrector 

• Constitutive Models (expanded internal material database) 

- elastic: transversely isotropic and anisotropic 

- inelastic viscoplastic models: 

- Bodner-Partom 

- Robinson 

- GVIPS isotropic form 

- TGVIPS transversely isotropic form 

- user defined constitutive model via subroutines USRMAT (inelastic), USR- 
FORMDE and USRCPEVAL (elastic); user defined functional dependence 
of material constants via subroutine USRFUN 

• Interface Modeling 

- fiber/matrix interface layer (distinct interfacial material) 

- fiber/matrix debonding conditions (interfacial displacement discontinuity) 

• Fatigue Damage Analysis 

• Yield Surface Calculations 

• Symmetric and Nonsymmetric Laminate Analysis 

• FEAMAC - allows easy finite element access to MAC/GMC capabilities 
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3.0 Background 

As stated in the introduction, MAC/GMC’s predictive capabilities rest upon the 
fully analytical micromechanics model known as GMC which is capable of predict- 
ing the inelastic response of both continuous (double periodicity) and discontinu- 
ous/woven (triple periodicity) multi-phase composites with arbitrary internal 
microstructures and reinforcement shapes. Included in this section is a brief over- 
view of the theoretical foundations of GMC; a more complete discussion is given 
in references [1-3]. Also, included in this section are discussions of 1) the avail- 
able integration algorithms, 2) various constitutive models, 3) theory underlying 
the laminate, 4) fatigue damage, and 5) interfacial modeling approaches incorpo- 
rated into MAC/GMC. Besides describing the available constitutive models, expla- 
nations of the user defined inelastic and elastic material models are included. 
Finally, the available architectures (Repeating Volume Elements, or RVEs) and 
required input are then described in section 4.0. 

3.1 Micromechanics Models 

In the original formulation of the method of cells, a continuously (or discontinu- 
ously) reinforced, unidirectional fibrous composite was modeled as a rectangular, 
double-periodic (or triple-periodic) array of fibers embedded in a matrix phase. 
The periodic character of the assemblage allowed identification of a repeating unit 
cell that can be used as a building block to construct the entire composite. The 
properties of the repeating cell were thus representative of the properties of the 
entire assemblage. The unit cell consisted of a single fiber subcell surrounded by 
three matrix subcells for continuous, and seven for discontinuous, composites, 
hence the name method of cells. The rectangular geometry of the repeating unit 
cell allowed one to obtain an approximate solution for the stresses and strains in 
the individual subcells given some macroscopically homogeneous state of strain 
or stress applied to the composite. The approximate solution to the posed bound- 
ary value problem was, in turn, used to determine macroscopic (average) proper- 
ties, traditionally referred to as effective properties, of the composite and the 
macro (global) stress-strain response in the inelastic region. 

In the generalized method of cells for continuous (or discontinuous) fibrous 
composites, the repeating unit cell can consist of an arbitrary number of phases, 
see Fig. 2. Hence, the generalized method of cells is capable of modeling a multi- 
phase composite. This generalization extends the modeling capability of the origi- 
nal method of cells to include the following: 1) inelastic thermomechanical 
response of multi-phase metal matrix composite, 2) modeling of various fiber 
architectures (including both shape and packing arrangements), 3) modeling of 
porosities and damage, and 4) modeling of interfacial regions around inclusions 
including interfacial degradation. 


The basic homogenization approach taken in the micromechanical analysis 
consists essentially of four steps. First, the RVE, of the periodic composite is iden- 
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tified. Second, the macroscopic or average stress and strain states in terms of the 
individual microscopic (subcell) stress and strain states is defined. Third, the con- 
tinuity of tractions and displacements are imposed at the boundaries between the 
constituents. These three steps, in conjunction with micro-equilibrium, establish 
the relationship between micro (subcell) total, thermal and inelastic strains and 
macro (composite) strains via the relevant concentration tensors. In the fourth and 
final step, the overall macro constitutive equations of the composite are deter- 
mined. These four steps form the basis of the micro-to-macromechanics analysis 
which describes the behavior of heterogeneous media. The resulting microme- 
chanical analysis establishes the overall (macro) behavior of the multi-phase com- 
posite which is expressed as a constitutive relation between the average stress, 
strain, thermal, and inelastic strains, in conjunction with the effective elastic stiff- 
ness matrix. 

That is, 


9 = -e T ) (EQ 1) 

where, for the most general case of discontinuous reinforcement with N a by No 
by N y number of subcells, the effective elastic stiffness matrix, B * , of the com- 
posite is given by, 


N„ N n AL 


~ = X E E d a h p l yC 


(«PY)^(aPy) 


a = 1 p = ly = 1 


the composite inelastic strain vector is defined as, 


(EQ 2) 
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dhl 
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the average thermal strain vector as, 


(EQ 3) 
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‘E E E d a h t l yC 

a = 1 P = ly = 1 


(apY) (Z) (apY) e r - e r(apY) ) 


(EQ 4) 


and e is the uniform applied macro (composite) strain. For the case of continuous 
reinforcements with N p by N y number of subcells, EQS. 2 - 4 reduce to the fol- 
lowing: 
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Figure 2: Subcell Dimension Nomenclature 
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(EQ 6) 


(EQ 7) 


p= ly= 1 

In the above equations matrix notation is employed; where, for example, the 
average stress, g , average strain, f , and inelastic subcell strain, e', vectors rep- 
resent, 


? - {°11* **22’ °33» °23’ °13> CT 12} 


(EQ 8) 


I = {e 11* ^22* ^33* 2e 23 , 2e 13 , 2e, 2 } 


(EQ 9) 


§; = {§ /(ui) .-,i /(W t) } 


(EQ 10) 


where the six components of the vector § /(ctPy) are arranged as in EQ. 9. Similar 
definitions for , § 7(aPY) also exist. Note that the key ingredient in the construc- 
tion of this macro constitutive law is the derivation of the appropriate concentration 
matrices, A ( “ Py) and D ( “ Py) having the dimensions 6 by 6 and 6 by N a N^N y 
respectively, at the micro (subcell) level. The definitions of A and D, although not 
given here, may be found in references [2] and [3]. Finally, the matrix C (aPY ~ rep- 
resents the elastic stiffness tensor of each subcell (aPy) and d a , h^, l y the 
respective subcell dimensions (see Fig. 2) wherein, 


N„ 


N n 


N* 


= 2*o 


h = 


a = 1 


2*p 

p=i 


'= X'y 


Y = 1 


Similarly, given the concentration matrices A (ctPy) and £> ( “ Py) , expressions for the 
average strain in each subcell can be constructed, i. e., 


g(apy) 


= A (apY) e + D (aPY) ( § ; + e[) 


(EQ 11) 


as well as average stress 


g (aPy) = C (aPY) [A (ctpY) e + D (aPY) (e / + e T ) - (e /(aPY) + e 7(apY) )] 


(EQ 12) 


The analytic constitutive law, see EQ. 1 , may be readily applied to investigate the 
behavior of various types of composites, given knowledge of the behavior of the 
individual phases. Note that within MAC/GMC an incremental tangent solution 
scheme is utilized, therefore the appropriate rate forms of EQS. 1-12 are 
employed. 
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Numerous advantages can be stated regarding the current macro/micro consti- 
tutive laws as compared to the other numerical micromechanical approaches in 
the literature, e.g. the finite element unit cell approach. One advantage is that any 
type of simple or combined loading (multiaxial state of stress) can be applied irre- 
spective of whether symmetry exists or not, as well as without resorting to differ- 
ent boundary condition application strategies as in the case of the finite element 
unit cell procedure. Another, advantage concerns the availability of an analytical 
expression representing the macro elastic-thermo-inelastic constitutive law, thus 
ensuring a reduction in memory requirements when implementing this formulation 
into a structural finite element analysis code. Furthermore, this formulation has 
been shown to predict accurate macro behavior given only a few subcells, within 
the repeating cell (see references [2], and [4]). Whereas, if one employs the finite 
element unit cell procedure, a significant number of finite elements are required 
within a given repeating unit cell to obtain the same level of global accuracy as 
with the present formulation. Consequently, it is possible to utilize this formulation 
to efficiently analyze metal matrix composite structures subjected to complex ther- 
momechanical load histories. This is particularly important when analyzing realis- 
tic structural components, since different loading conditions exist throughout the 
structure, thus necessitating the application of the macromechanical equations 
repeatedly at these locations. 

The equations of GMC-3D (and consequently through appropriate specializa- 
tion GMC-2D) have recently been reformulated [7] in a way that significantly 
increases the computational efficiency of the model. This new reformulation has 
now been implemented into MAC/GMC and is the default computational mode. By 
nature of the traction continuity conditions within the original generalized method, 
all six stress components are not unique in every subcell. Normal stress compo- 
nents are constant in certain rows of subcells, while shear stress components are 
constant in certain layers of subcells. The unique subcell stress components are 
denoted as, 


(py) t («Y) r («p) -(a) (p) T (y) 

-'ll ’ 1 22 > 1 33 ’ 1 23 * 1 13 * 1 12 - 


(EQ 13) 


Consequently, a more efficient formulation of GMC can be obtained by applying 
traction continuity directly (i.e. recognizing that traction continuity conditions 
require no more and no less than the aforementioned reduction in subcell stress 
components) and using subcell stresses rather than strains as the basic unknown 
quantities. Accordingly, the continuity of displacement conditions are formed in 
terms of subcell stresses (through the use of the subcell constitutive and kine- 
matic equations), and the mixed concentration equations for the unit cell are con- 
structed, 


T = 


g («Py) c + G m<* r) 


/ / 7\ 


(EQ 14) 
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Here, T is the vector of all subcell stress components (listed in EQ 13), G (C ^ Y) is 

the subcell mixed concentration matrix, and G /r(0 ^ r) is the subcell inelastic-ther- 
mal mixed concentration matrix. The term mixed is used here because EQ 14 
relates local (subcell) stresses to global strains. Clearly this equation contrasts with 
its original formulation counterpart, EQ 1 1 , which relates local strains to global 
strains and is thus the unit cell strain concentration equation. As one could obtain 
EQ 1 from EQ. 12 in the original formulation, similar expressions for the global 

quantities ( B *, e! and e T ) can be determined easily from EQ 14 (see [7] for 
details). 

The increased efficiency of the reformulation of GMC emerges mainly due to the 
increased efficiency of forming EQ 14 versus forming EQ 1 1 . The formation of EQ 
14 requires solution (of linear equations) for the unknown independent subcell 
stress components listed in EQ 1 3, numbering N p N y + N a N y + N a N p + 

N a + Np + N y . The formation of EQ 1 1 requires solution for 6 unknown strain 

components for each subcell, or a total of 6N a NpN y unknowns. Solution of linear 

equations, in essence, amounts to the inversion of a matrix which has the rank of 
the number of unknown quantities. Since the computational effort associated with 
matrix inversion increases approximately as the cube of the matrix rank, reducing 
the number of unknown quantities has a major impact on computational efficiency. 
The reduction in unknowns due to the reformulation is shown in Figure 3 and can 
be quite significant. For example, a 10x10 xIO unit cell originally required solution 
for 6000 unknowns. In the reformulated version of GMC-3D the number of 
unknowns is reduced to 330. Consequently, the corresponding execution times are 
reduced as well. Table I gives sample CPU times for identical cases executed using 
the original and reformulated versions of GMC with continuous reinforcement. 
Clearly, as the number of subcells in the repeating unit cell increases, the increase 
in efficiency attributable to the reformulation becomes astronomical. It is important 
to note that: 

(1) The reformulation of GMC gives identical results as the original formula- 
tion of GMC in every case. 

(2) The significant increase in the computational efficiency of GMC due to the 
reformulation allows: 

(a) Analysis of simple unit cells (i.e. few subcells) in a fraction of the 
time. 

(b) Analysis of refined unit cells (i.e. many subcells) which was pre- 
viously impossible (due to excessive execution times and memory 
requirements) can now be performed in times comparable to those 
previously required for analysis of simple unit cell, see Table I. 
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Figure 3. Number of subcells vs. number of unknown variables for the original and 
reformulated versions of GMC-3D for N a = Np = N y 


Table I: CPU Times (seconds) for Heat-Up of Unidirectional SiC/TiAl 



1 1 1 1 II 1 1 II 1 — 






10x10 




original 

0.87 

19 

182 

508 

8,679 

43,781 

_ 

_ 

reformulated 

0.18 

0.25 

0.5 

0.9 

1.5 

2.3 

8.3 

796 

speed-up ratio 

4.8 

76 

364 

564 

5,786 

19,035 

- 

- 


■gf Note: These execution times are for a specialized version of GMC-2D and not 
MAC/GMC, therefore one should not expect to see the same execution 
times when running MAC/GMC due to increased overhead. However, 
speed-up ratios should be comparable. 
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3.2 Integration Algorithms 

There are two integration algorithms currently available within MAC/GMC. The 
first is the standard, explicit Forward Euler algorithm, which can be expressed as, 

w l + 1 = vv, + Atf(t ir w-) 

where 

vv,- = y(f f ) 
w i + l = >('«•+ 1) 


and /(r,, w,) is the rate of change with respect to time of the vector, y(t { ) , i.e. 


/(',•» w f ) = y = 


dy(ti) 

dt 


The second is a predictor/corrector algorithm with a self-adaptive time step which 
uses: 

1) a 4 th order Runge-Kutta starter: 


w i = w i - 1 + 


(K , + 2K 2 + 2K 3 + K 4 ) 


where 



w «- 

i) 


Ar 



K \\ 

_! + 2 ’ 

w i- 

i + 

2 J 

A/ 



k 2 \ 

-1+2’ 

w i- 

i + 

2 J 


w i- 

l + 

* 3 > 


2) with an Adams-Bashforth four-step predictor: 


w 0 = a, 


w, = a 2 


w 2 = a 3 


w 3 = a 4 


wf+i = m, , + ^[ 55 /(^w i )-5 9 /(/ i _i, w I _i) + 37 /(r,._2,w,_ 2 ) 


— 9 /(*i- 3> _ 3 ) ] 
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and 3) an Adams-Moulton four step corrector: 


VV; 


At 


m = Wi + ^[9/(r i + 1 ,< +1 ) + 19/(r,-,w i )-5/(/ I ._ 1 .w,_ 1 ) 


+ /(';_ 2> w , -2)l 


where the a’s come from the 4 th order Runge-Kutta starter. Further details may 
be found in [8]. 

Note: It has been found, based on experience, that for relatively rapid mono- 
tonic or cyclic loadings it may be more efficient to use the Forward Euler 
integrator since the predictor/corrector requires 5 evaluations per step, 
as shown above. However, in the case of creep, relaxation or slow 
monotonic or cyclic loading histories, significant increases in solution 
speeds can be obtained using the predictor/corrector algorithm. 

Finally, within MAC/GMC the vector vv as used above contains the following 
macro quantities: 


position 

contents 

1 -6 

Macro Total Strain 

7-12 

Macro Stress 

13-18 

Macro Inelastic Strain 

19-30 

(currently empty 
space for 2 6x1 vectors) 

31 -36 

Macro Thermal Strain 

37 

Current Temperature 

38- 46 

Future Use 


and the quantities associated with each subcell are stored sequentially in vv , such 
that 


position 

contents 

47-52 

Micro Total Strain 

53-58 

Micro Stress 

59-64 

Micro Inelastic Strain 

65-76 

Micro Internal State Variables 


(space for 2 6x1 vectors) 

77-82 

Micro Thermal Strain 

83-88 

Debonding Parameters 


The above 42 positions (i.e., positions 47-88) are repeated for the total number of 
subcells (N) thus bringing the total length of the vy vector to 46+42N. It follows that 
a second vector of similar length that contains the corresponding macro and micro 
rates, e.g., /(*., w-) , is also utilized. 
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3.3 Available Constituent Constitutive Models 

Currently MAC/GMC provides two elastic and five inelastic constitutive models. 
These models have been selected purely based upon the availability of material 
parameters for the materials of interest. However, MAC/GMC is designed in a 
modular fashion thus allowing the implementation of additional constitutive mod- 
els through a user defined subroutine. Two of the five available inelastic models 
are capable of representing transversely isotropic material behavior, thus allowing 
one to investigate the reinforcement of an anisotropic matrix allowing idealization 
of a heterogeneous material via a pseudo-homogenous anisotropic material (e.g. 
fiber tow). In all five inelastic models a purely elastic response is possible by mod- 
ifying a single material parameter for each model as noted below. 


3.3.1 Transversely Isotropic Elastic Model 

Reference: Jacob Aboudi, Mechanics of Composite Materials, Elsevier, 1991 

The following transversely isotropic model is provided for those materials that 
have an elastic only response and whose strong direction is aligned with the 1 
axis shown in Fig. 6, such as the fiber constituent in a composite. 


<*11 


C„ 

C ,2 

Cl 2 

0 

0 

0 


f 

e ll 


'a L AT 

\ 

<*22 


Cl 2 

c 22 

C23 

0 

0 

0 



e 22 


a T AT 


<*33 


C, 2 

C23 

c 22 

0 

0 

0 



£33 


cl t AT 


<*23 


0 

0 

0 

C 44 

0 

0 



Y23 


0 


<*I3 


0 

0 

0 

0 

C 44 

0 



y 13 


0 


_<*12 


0 

0 

0 

0 

0 

C66 


V 

y 12 


0 

) 


where components C • • can be expressed in terms of five independent constants, 
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thus, 


with 


C n = £4 + 4kv a 2 
C, 2 = 2kv a 
0.5 E t 


0.5E a 

C 23 = K ~ri — 

(l+Vy) 

C 44 = g a 

^ _ (C22-C23) 

C 66 “ 5 


K = 0.25E a /[0.5(\-v t )(E a /E t )-v a 2 ] 


3.3.2 Anisotropic Elastic Model 

Reference: S. M. Arnold, A Transversely Isotropic Thermoelastic Theory, NASATM 101302, 1988 

An alternative transversely isotropic model has also been provided for those 
materials that have an elastic only response, but whose strong direction may not 
be aligned with the 1 axis shown in Fig. 6 (i.e., the plane of isotropy is allowed to 
rotate), for example in the case of woven composites, see Example N. This elas- 
tic model is consistent with the anisotropic inelastic models described subse- 
quently and is defined within the global coordinate system via a direction cosine 
vector, d i . 


g = [£]{§-§'*} 

where the stiffness matrix, C , is a function of the five independent material 
parameters E A , E T , v A , v T , G A and the direction cosine vector, , and, in general 
is fully populated. Note the multiaxial thermal strain tensor is assumed to have the 
following form, 

e'y = [(a. L -a T )d i d j + S iJ a. T ]AT 
Further details can be found in the above reference. 
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3.3.3 Bodner-Partom Model 

Reference: Jacob Aboudi, Mechanics of Composite Materials, Elsevier, 1991 

This model represents a Bodner-Partom viscoplastic material with isotropic 
hardening, Z, and can be used for an initially isotropic metallic material. 

The flow law is given as: 

4 = Any- 
where 


A = 




J. = -S S 
2 2 IJ,J 


$ij - a ij~ 2° kk^ij 


The evolution law for isotropic hardening is given as: 

w PL 

Z = m(Z x -Z e jf)-=— 

, PL 

where Z 0 , Z, and m are inelastic constants and the plastic work rate, W , is 
given by; 


t 3 ' 

Z eff = Z 0 + <ljZ(x)dx + ( 1 - q) £ r^Z^r^dx 
0 i, j = 1 0 

/•y(r) = a ij{t)/[a kl {t)o kl {t )] x/ 2 

An elastic only response may be obtained by setting the material parameter D 0 to 
zero. 
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3.3.4 Modified Bodner-Partom Model 

Reference: R. W. Neu, “Nonisothermal Material Parameters For the Bodner-Partom Model”, MD- 
Vol. 43, Material Parameter Estimation for Modern Constitutive Equations, L. A. 
Betram, S.B. Brown, and A.D. Freed, Eds., ASME, Book No. H00848, 1993. 

This model represents a nonisothermal Bodner-Partom viscoplastic material 
with isotropic, Z\ and directional hardening, Z D , and can be used for an initially 
isotropic metallic material. 

The flow law is given as: 


./ 



where 


A = D 0 exp 


- 0.5 


f 7 i Vi 


j k 


z = z'+z° 


h = 


S IJ ®ij ^kk^ij 


The evolution law for the isotropic hardening, Z l , is given as: 


Z 


/ 


m,(Z 1 


z')W PL -A 


f . z l - z 2 y 

r 2 

fz'-z 2 ) 

dz x 

%-z’) 

dz 2 ' 

Z 1 
1 ) 

+ 

V 

1 

N 

df + 

N 

1 

N 

df 

y 


where Z 0 , Z, ,Z 2 , A, , ^and m x are the material parameters associated with iso- 
tropic hardening. The magnitude of the directional hardening is defined as the 
scalar product of a state variable, and unit stress vector, u ijt as given below. 


■ PL 


$ i j = m 2 (Z 3 u i j-$ i j)W -AjZ, 
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ij I 

J a kP kl 

v- = -hi 

■' vw, 

where, the plastic work rate is defined as; W = a- e- ; and with,Z 3 , A 2 , r 2 and 
m 2 being the material parameters defining the directional evolution. An elastic 
only response may be obtained by setting the material parameter D 0 to zero. 


3.3.5 Robinson Viscoplastic Model 

Reference: S.M. Arnold, D.N. Robinson, and P.A. Bartlotta, “Unified Viscoplastic Behavior of Metal 
Matrix Composites”, NASATM 105819, 1992 

This model represents a transversely isotropic material wherein the vector of 
direction cosines, d it defines the preferred material direction. In this model the 
strength of anisotropy is specified by the parameters to and r) ; where to is the 
ratio of the normal longitudinal and transverse yield stress and t| is the ratio of 
longitudinal and transverse threshold shear stress. 


Flow Law: 


Evolution Law: 


where 


,/ (F”) 

'>■ 2 p 


n - —p _ rtr m ~$T\ 
a ij ~ p e »7 ™ n y 
t/ 


n /, = <>,v-4(D««;* + D ;t a w -2? 0 i) iy )-ic?„(3Dy-S iy ) 
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and 


h 


•] 


k t T| 


■l 


4(4© - 1) 
G = (&-&o)H V [S ij K ij ] + &o 




I T — I ~ I * It — I 


2 

0 


J 2 - 2 


1 DjjlLjj 


D ij = d,dj 


^ ij $ij a ij 


$ = 


i 1 

- H - 1 


T| 


^ _ 4(0) -1) 
4o) 2 - 1 


with k 7 , p, n, H, p, R, m, G a , r| and co representing the associated required inelas- 
tic material parameters and < > denoting a Macauley bracket, as defined below. 


< > 


0 jt<0 1 

x x>0 ] 


The invariants l x ,I 2 ,h are the same /, , 1 2 , / 3 as those given above but with 
replaced by «... Special cases involving an isotropic material and/or elastic only 
response can be obtained by defining o) = r\ = 1 and/or by setting K r to an 
extremely large number. 
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3.3.6 Generalized Viscoplastic Potential Structure (GVIPS) Model 

References: S.M. Arnold, A.F. Saleeb, and M.G. Castelli, “A Fully Associative, Non-Linear Kine- 
matic, Unified Viscoplastic Model for Titanium Based Matrices”, NASA TM 106609 
1994. 

S.M. Arnold, A.F Saleeb, and M.G. Castelli, "A Fully Associative, Nonisothermal, 
NonLinear Kinematic, Unified Viscoplastic Model for Titanium Alloys", NASA TM 
106926,1994. 

This model is a fully associative, multiaxial, nonlinear kinematic hardening vis- 
coplastic model for use with initially isotropic metallic materials. A unique aspect 
of this model is the inclusion of non-linear hardening through the use of a compli- 
ance operator Q ijkl in the evolution law for the back stress. This non-linear tenso- 
rial operator is significant in that it allows both the flow and evolutionary laws to be 
fully associative (and therefore easily integrated) and greatly influences the multi- 
axial response under non-proportional loading paths. 

Flow Law: 


./ 


Jh 


2 H vll 


if F> 0 


where 




Internal constitutive rate equation: 


**ij — L t j rs A rs 


Evolution Law: 


K o 


a rs 3/? a Z? 0 G 9 

_|„ vm ^_ ars 


if 


“ijZij* o 


A rs = 


Qrstm^ Imnp 


K„ *JG K 


if 


a ij L ij< o 


where 
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F = <— - Y ) 

K 

y = (i-P7g> 



B ijrs [ Qijrs 


3B 0 ( 1 + B l pG pi )[ < 


I ijrs 


3B lP (p-l)G 


p-2 


K l( l+B \ p gP 


(6p-5)) 


a rs a ij 


and 

h = l a ij a ij Z «7 = ^1/ “ a ij 
3 2 - ^ij = <5 ij~ ^kfiij 

with K, \i, n, K 0 , B 0 , B v P, R a , q and p being the associated required inelastic 
material parameters. Typically, k, p, B 0 , R a and p are taken to be functions of 
temperature and k 0 = k (T ref ) is the initial drag stress at the reference tempera- 
ture. The special case of an elastic only response maybe obtained by setting k to 
an extremely large value. 
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3.3.7 Transversely Isotropic GVIPS Model (TGVIPS) 

Reference: A.F. Saleeb and T.E. Wilt, Analysis of the Anisotropic Viscoplastic-Damage Response 
of Composite Laminates-Continuum Basis and Computational Algorithms, Int. J. 
Numer. Meth. Enging., Vol. 36, pp. 1629-1660, 1993. 

This model is a fully associative, multiaxial, isothermal, nonlinear kinematic 
hardening viscoplastic model for use with initially transversely isotropic metallic 
materials. A unique aspect of this model is the inclusion of non-linear hardening 
through the use of a compliance operator Q ijkl in the evolution law for the back 
stress. This non-linear tensorial operator is significant in that it allows both the 
flow and evolutionary laws to be fully associative (and therefore easily integrated) 
and greatly influences the multiaxial response under non-proportional loading 
paths. 

The flow law for the inelastic strain, i 1 , is given by, 


and the evolution law for internal stress, a is given by, 

* = [ ? ”> + MlW) 1 - ® ?) ](^ , “ RGm °) 

where h = H/G p , h' = -p/G and Z m = M" 1 

F = — ^-r(a - a) : M : (a - a) - 1 
2k, 2 “ 

G = -^-a : M : a 

2 *, 

r = M : (g-a) 

0 = M : a 

M = P-W-i^R 
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The anisotropy of the material is introduced through the M matrix, specifically the 
parameters, £, E, which are defined as, 

^ _ h 2 - \ ^ _ 4(co 2 - 1) 

r| 2 4(0 2 -l 


In the above, 0 < ^ < 1 and 0 < C, < 1 are the material strength ratios, in which the 
constants K l {K,) are the threshold strengths in longitudinal (transverse) shear, 
and Y t ( T f ) are the threshold strengths in longitudinal (transverse) tension. Note 
that for an isotropic material, to = r| = 1 . 

In addition, the fourth-order tensors P, Q, and R are defined as, 

P = 1-5(8® «) lijH = j(8«S yi . + Sfa) 

Q.jU = + D„5 ;t + D Jk S n + D ;| 6, ( ) - 2D tJ D u 

R, /t ; = 3D li D kl -(D i j& u + & lj D u ) + 

In the above, the vector of direction cosines d i defines the orientation of the mate- 
rial fiber, which leads to the material directionality tensor D,(D = d^j). Also, 8 is 
the Kronecker delta (second-order identity tensor) and I is the fourth-order iden- 
tity tensor. Finally, the symbol : indicates double-contraction and <8> cross 

product. 


i®" Note: When calculating Z m for the three dimension case one needs to 

replace Pwith P= diag[1 ,1 ,1 ,2,2,2] as P is singular for the three dimen- 
sional case. 
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3.4 Laminate Theory 

MAC/GMC includes the capability to analyze general (symmetric and nonsym- 
metric) composite laminates [9], see Fig. 4. Mid-plane strains and resultant forces 
in the plane of the laminate may be applied. That is, the global laminate stress- 
strain relation that is solved within MAC/GMC is expressed as, 
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(EQ 17) 


— _/ _7 / j 

where N , N , N , and M , M , M are the global laminate total, inelastic and 
thermal force and moment resultants, respectively. The matrices A ,B , and £> are 
the global laminate extensional, coupling and bending stiffnesses, respectively, 
and, e and k the global laminate mid-plane strain and mid-plane curvature, 
respectively. 


In forming the laminate extensional stiffness A the generalized method of cells 
model, GMC, is utilized to calculate the individual lamina properties. In this regard, 
the individual laminate stiffness, in lamina coordinates, Q is given by, 


Q = 


Qu Qn o 
Qi\ Qn o 


0 0 <2 66 J 


in which the components of Q are given as, 


(EQ 1 8) 


26 



MAC/GMC. M icromechanics A nalysis C ode 


Q\\ ~ C ll 

0-22 ~ ^22 ~ 
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^ 23^32 

^33 


Q 12 “ ^12“ 


^13^23 
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66 


(EQ 19) 


The C { j in the above are the effective macro properties for the unidirectional com- 
posite lamina obtained from GMC. 

It follows, employing a Kirchhoff-Love hypothesis, that the lamina stress-strain 
relation in global (laminate) coordinates denoted by x-y is given by the relation, 


where 
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(EQ 20) 


(EQ 21) 


(EQ 22) 


*k 


cos 2 0 sin 2 0 2 sin 0 cos 0 

sin 2 0 cos 2 0 (-2)sin0cos0 
- sin 0 cos 0 sin 0 cos 0 cos 2 0 — sin 2 0 


(EQ 23) 


and 0 is the orientation of the longitudinal lamina axis with respect to the global x- 
direction, see Fig. 4, thus Q k is the transformed lamina stiffness, i.e. from local 
lamina to global laminate coordinates. In addition, <5 k is the lamina stress vector in 
laminate coordinates. It then follows that the global laminate extensional stiffness 
A is given by, 



k = 1 


(EQ 24) 
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in which nly is the total number of layers in the laminate and t k is the thickness of 
the k th lamina. The coupling and bending stiffnesses can be similarly developed 
and given by the following expressions: 


i nly _ 

b = 

k = l 
nly 

Q = 3 X Qk( z k~ z k -0 
k= 1 


(EQ 25) 


(EQ 26) 


where is the distance (considering the sign) to the top of layer k from the mid- 
plane. 

— / —T 

Returning to EQ. 17, the quantities N and N (the laminate inelastic and ther- 
mal force resultants, respectively) are calculated from the individual lamina contri- 
butions through the following relations, 

nly ^ nly 

N l = X Qkf ‘ ‘ h dz y' = X 2*r & dz (EQ 27) 

*=i~ Zt ~ l *=i~ Zk ~ l 

and 

nly _ nly _ 

5 = Ite'i =5 Zed (4- 4-0 (eq 28) 

k = 1 k= 1 


where the integrals in EQ. 27 are performed using second order gauss quadrature 
which requires two integration points per layer. Thus all field quantities are tracked 
at the two gauss quadrature points in each layer of the laminate in MAC/GMC. 
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3.5 Fatigue Damage Analysis 

The fatigue damage calculations utilize a recently developed multiaxial, isother- 
mal, continuum damage mechanics model for the fatigue of unidirectional metal 
matrix composites [10]. The model is phenomenological, stress based, and 
assumes a single scalar internal damage variable, D. Note that for an initially 
anisotropic material, the evolution of the damage, although a scalar, is direction- 
ally dependent. As will be shown, this directional dependence is accounted for in 
the terms, P m , ® fl , and . The present multiaxial, isothermal, continuum dam- 
age model for initially transversely isotropic materials (e.g., unidirectional 
metal matrix composites) may be expressed as, [1 0] 

N p p 

J dD = J[l-(l-D) P + , ]°[y-f^] dN (EQ 29) 

*>*-. 0 


where N is the number of cycles at the current stress state, (cr*) , and Z) t and 
D k _ j are the amount of damage at the current and previous increments, respec- 
tively. The quantity a which is a function of the current stress state is defined as, 


a = 1 - a 


<v 

w 


(EQ 30) 


where < ) are the Macauley brackets. In the above, the fatigue limit surface, O^, 
and the static fracture surface, <t> u , are defined as 



\maxmax 

2 ~ 0 r 




(EQ 31) 


= i - < EQ 32 > 

and the quantity P m , used in EQ. 29 is the normalized stress amplitude, and is 
defined as, 



1 maxmax 

2 ~ 


M)( C ij ( f ) ~ a ij( t o)) 


(EQ 33) 


Note, the case = 0 indicates static fracture, which is failure, making it 
unnecessary to perform the fatigue calculations as in this case the subcell is con- 
sidered to have failed completely. Thus, having to consider the possibility of a 
being undefined is unnecessary. The case (Oyj) = 0 indicates that the current 
stress state is below the fatigue limit and thus a is set equal to 1 . This presents a 
special case when integrating the fatigue damage expression, EQ. 29, and will be 
considered later in this section. 
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In the above equations, t 0 is the time at the beginning of the current load cycle, 
and t, is some time during the load cycle. The general form for F (0 )f (c ) or (M) 
may be expressed as, 


F () = 



)-l>/i + 



(EQ 34) 


It is in the above expression, in which the evolution of the damage becomes direc- 
tionally dependent. This simply amounts to the assumption of partial anisotropy, 
where the “extent" (magnitude) of damage is affected by the directionality of the 
stress state. Specifically, the directional dependence enters through the quanti- 
ties, /j , 1 2 , / 3 , co ( } , and rj ( } . The quantities, /, , I 2 , / 3 are invariants having the 
form, 


>1 - WjSjtSu-idtdjSy) 2 (EQ35) 

h = <W «> 2 

which are a function of the current deviatoric stress state, sfj = a. --a 8- , as 
well as the vector d i which defines the materials’ preferred direction (e.g., fiber 
orientation in a composite). In addition, the terms a> ( ) and rj ( } represent the 
ratios of longitudinal to transverse normal and shear stresses, respectively. Note, 
the longitudinal direction is parallel to the preferred direction and transverse is per- 
pendicular to the preferred direction. For initially transversely isotropic materials, 
ro ( ) and rj ( } are > 1 and for isotropic materials co ( } and q ( ) are = 1. 

In the context of micromechanics analysis within MAC/GMC, the isotropic sim- 
plification of the above representation will be predominately used for the various 
constituent phases [11]. This isotropic representation is the previously validated 
NonLinear Cumulative Damage Rule (NLCDR) developed at ONERA (Office 
Nationale d’Etudes et de Recherches Aerospatiales) for isotropic monolithic met- 
als. However, it maybe desirable to use the transverse isotropic form when dealing 
with fiber tows in woven composites systems. 

3.5.1 Above Initial Fatigue Limit 

Given a current state of stress, o k , above the fatigue limit, i.e. a * 1 and inte- 
grating EQ. 29 results in an expression for the number of cycles, N, i.e., 
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N = 


^(l-a)(P+l) 


(EQ 36) 


Note that D k _ x is the total amount of damage at the beginning of the load block 
and D k is the total amount of damage at the end of this load block. Alternatively, 
rewriting EQ. 36 an expression for the damage, D k , in terms of the number of 
cycles and previous damage can be obtained, i.e., 


D k = 1- 


l-jd-O-Dj.,) 11 * 1 ] 1 " 0 t(l-a)(P+l)fM 


1 \— 
TT5> + i 


(EQ 37) 


In the present computational scheme, since the damage increment is con- 
trolled, both D k and D k _ , are known. That is, D k = D lc _ l +AD where AD is the 
user specified increment in damage. Thus EQ. 36 is used to predict the increment 
in the number of cycles for each subcell, N e , due to the imposed increment in 
damage. 

To calculate the number of cycles to failure, for an initial damage amount, D k _ , , 
let D k = 1 , which results in the following, 




<*)(P+ 1) 


(EQ 38) 


3.5.2 Below Initial Fatigue Limit 

Now consider the case in which the current stress state is below the initial 
fatigue limit, i.e. = 0 , which leads to a* = 1 . Thus, EQ. 29 takes the form, 








l-(i-fl ) 1 


(EQ 39) 


Upon integrating the above equation, the increment in cycles, N, with initial dam- 
age, D k _ , , may be expressed as, 


< *£(P + 1) > 


(EQ 40) 


Alternatively, the following expression for the damage, D k , may be expressed as: 
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D k = l-{l-[l-(l-D Jt _ 1 ) P + , ]exp((p+ l)P*N)} 


P+i 


(EQ 41) 


For the number of cycles to failure, let D k = 1 , 


n f = 


-log [1-(1-D*_,) P + 1 ] 


(EQ 42) 


F«(P+1) 


The effect of damage is included in the present micromechanics analysis utiliz- 
ing the concept of effective stress and the hypothesis of strain-equivalence [12]. 


a = 


(1 ~D k ) 


(EQ 43) 
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3.6 User Defined Inelastic Material Model 

MAC/GMC, has the option for a user to implement their own inelastic constitu- 
tive model. This is accomplished by using the subroutine USRMAT into which the 
user writes the necessary FORTRAN code for the particular constitutive model 
being implemented. The USRMAT subroutine is as shown below and is always 
called whenever ncmd=99 (see section 4.2.12). 

c################################################ ####################### 
SUBROUTINE USRMAT (DSA, SA, PE, PV, D, LOCTISO, TIME, TSTEP, 

& CTEMP, DTEMPR, NIO, NE, NV, NS, MN, CDUM, DMGF, 

& NEP, NVP , NSASIZE) 


c purpose: user material constitutive model for determination of 

c the inelastic strain and state variable rates 

c (used when ncmd = 99) 

IMPLICIT DOUBLE PRECISION (A - H, O - Z) 


CHARACTER* 2 CDUM 
DIMENSION SS (6) , S(6), R(6) 
DIMENSION DSA (NSASIZE) , SA(NSASIZE) 
DIMENSION PV (NVP) , PE(NEP), D(3) 


**★** + * + ★** + ★★** 




c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


note: 1) in this subroutine, [SA] and [DSA] contain the 

micro (subcell) quantities for aboudi's micromechanics model 

2) arrangement of [dsa] & [sa] arrays: 
variable location 


strain rate 

(1-6) 

(contains ENGINEERING shears) 

stress rate 

(7-12) 


inelastic 
strain rate 

(13-18) 

(contains ENGINEERING shears) 

12 "slots* 

for state variables 

(19-30) 


thermal strain rate 

(31-36) 





*********** 


c NOTE: quantities in [SA] and [DSA] are SUBCELL quantities - the 

c values on entry are for the first subcell containing material 

c # MN - the values on exit of this subroutine will be applied to 

c ALL SUBCELLS containing material # MN. It is thus recommended 

c that, if using the field variables, you assign the appropriate 

c material # to ONE SUBCELL ONLY. Use of [SA] and [DSA] in this 

c context in conjunction with bending in laminate theory will 

c result in erroneous results as field variables become dependent 
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c on through-thickness position. 

★★★★★★★★★★★a************************************************************ 


c on entry: 
c SA 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PE(NEP) 

PV(NVP) 

D { 3 ) 
LOCTISO 


TIME 

TSTEP 

CTEMP 

DTEMPR 

NIO 

NE 

NV 

NS 

MN 

CDUM 

DMGF 


- vector of total (integrated) quantities (see above) 

- vector of elastic constants for material MN 
(where NE = # of elastic constants --> 9 MAX) 

- vector of viscoplastic constants for material MN 
(where NV = # of viscoplastic constants --> 19 MAX) 

- vector of direction cosines (for models 3, 7, & 9) 

- flag indicating if ANY material exhibits 

local transverse isotropy (and global anisotropy) 

= 0 - all materials are at most globally transversely 
isotropic (D not used) 

= 1 - at least one material is locally transversely 
isotropic (D used) 

- current time 

- current time step 

- current temperature 

- time rate of change of temperature 

- unit number of .out file 

- # of elastic constants --> 9 MAX 

- # of viscoplastic constants --> 19 MAX 

- subcell number 

- material number 

- material character/number designation 
(i.e. FI = fiber #1) 

- damage factor - if damage is included the user 
should multiply material stiffness terms by DMGF 
when using such terms in their inelastic model. 


c expected on exit: 

c DSA - vector of rate quantities (see above) 

********************************************************** ************** 


★***********★**★**★★*+************************************************** 

* BEGIN USER EDITS * 

*★***★★***★+***★★★*★*★★★*★★********************************************* 


c place code defining model here 


★*********************************************************************** 

* END USER EDITS * 

************************************************************************ 

RETURN 

END 

A description of the input and output required for the usrmat subroutine is as fol- 
lows 


Data supplied to USRMAT: 

SA array containing current total quantities for all 

of the state variables 

PE array containing elastic constants 
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PV 

D(3) 

LOCTISO 


TIME 

TSTEP 

CTEMP 

DTEMPR 

NE 

NV 

NIO 

NCE 

NS 

MN 

CDUM 

DMGF 


array containing inelastic constants 

vector of direction cosines (for models 3, 7, & 9) 

flag indicating if ANY material exhibits local transverse 

isotropy (and global anisotropy) 

= 0 - all materials are at most globally transversely isotro- 
pic (D not used) 

= 1 - at least one material is locally transversely isotropic 
(D used) 

current time 

current time increment (step) 
current temperature 
current temperature rate 
total number of elastic constants 
total number of inelastic constants 
output file unit number 
current subcell number 
subcell number 

material number of current constituent 
Character string identifying current constituent 
damage factor - if damage is included the user should 
multiply material stiffness terms by DMGF when using 
such terms in their inelastic model. 


Output expected from U SR MAT: 


DSA current increments in all state variables 

The state variables are arranged in SA and DSA in the following order: 


Position 

Quantity 

1-6 

strain 

7-12 

stress 

13-18 

inelastic strain 

19-30 

available space for 2 6x1 vectors for model 
dependent internal state variables 

31-36 

thermal strain 

37-42 

debonding parameters 


Again, SA contains the total quantities and DSA contains the rates . 

r * Note: Example K contains a sample input file and the USRMAT subroutine 
containing an implementation of the Bodner-Partom viscoplastic material 
model as well as two elastic models. 

Note: GMC utilizes engineering strains, in SA and DSA consequently it is the 
users responsibility to convert tensorial strain quantities to engineering before 
exiting the USRMAT routine. 
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3.7 User Defined Functional Form For Material Properties 

An addition to this version of MAC/GMC is the option for a user to implement 
functionally dependent material properties. With this the elastic and/or inelastic 
material properties may be defined as a function of any variable contained in SA 
and DSA (e.g., stress, strain, time, temperature, etc.) In certain cases, the user 
must also provide code for determining the stiffness matrix (USRFORMDE) or the 
time derivative of the stiffness matrix (USRCPEVAL). This is accomplished by 
using the subroutines USRFUN, USRFORMDE, and USRCPEVAL into which the 
user writes the necessary FORTRAN code for the particular constitutive model 
being implemented. All three routines are shown below. 

c####################################################################### 
SUBROUTINE USRFUN (MN, TIME, TSTEP, CTEMP, DTEMPR, SA, DSA, 

& DOLD, PEM, PVM, D, LOCTISO, ALPA, ALPT, 

& NE, NV, NMTS, NEP, NVP, NSASIZE) 

purpose: user subroutine to allow elastic and viscoplastic 

material properties to be functions of TEMP or 
field variables. Used for user defined functional 
form material properties, that is, when: 

(mat .eq. ' U') .and. (ifm .eq. 2) 

note: can be used in conjunction with a provided material 

constitutive model, or a constitutive model input 
by the user in USRMAT 


c 

c 

c 

c 

c 

c 

c 

c 

c 


INCLUDE ' parm . inc ' 

IMPLICIT DOUBLE PRECISION (A - H, O - Z) 
DIMENSION DOLD (6, 6), D ( 3 ) 

DIMENSION PEM (NEP , NMTS), PVM(NVP, NMTS) 
DIMENSION ALPA (NMTS) , ALPT (NMTS ) 
DIMENSION DSA(NSASIZE) , SA(NSASIZE) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


note: 1) in this subroutine, [SA] and [DSA] contain the 

micro (subcell) quantities for aboudi's micromechanics model 

2) arrangement of [dsa] & [sa] arrays: 
variable location 


strain rate 

(1-6) 

(contains ENGINEERING shears) 

stress rate 

(7-12) 


inelastic 
strain rate 

(13-18) 

(contains ENGINEERING shears) 

12 "slots" 

for state variables 

(19-30) 


thermal strain rate 

(31-36) 
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c NOTE: quantities in [SA] and [DSA] are SUBCELL quantities - the 

c values on entry are for the first subcell containing material 

c # MN - the values on exit of this subroutine will be applied to 

c ALL SUBCELLS containing material # MN. It is thus recommended 

c that, if using the field variables, you assign the appropriate 

c material # to ONE SUBCELL ONLY. Use of [SA] and [DSA] in this 

c context in conjunction with bending in laminate theory will 

c result in erroneous results as field variables become dependent 

c on through-thickness position. 

★***+***★ *************************************************************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


on entry: 


MN 


TIME 


TSTEP 


CTEMP 


DTEMPR 


SA 


DSA 


DOLD ( 6 , 

6) 

PEM (NE, 

MN) 

PVM (NV, 

MN) 


material number 

current time 

current time step 

current temperature 

time rate of change of temperature 

vector of total (integrated) quantities (see above) 
vector of rate quantities (see above) 
previous elastic material stiffness matrix 
vector of previous elastic constants for material 
# MN (where NE = # of elastic constants --> 9 MAX) 
vector of previous viscoplastic constants for 
material # MN 

(where NV = # of viscoplastic constants --> 19 MAX) 


expected on exit: 


PEM (NE, MN) 
PVM (NV, MN) 

D ( 3 ) 

LOCTISO 


ALPA (MN) 
ALPT (MN) 


- vector of current elastic constants for material MN 

- vector of current viscoplastic constants for 
material MN 

- vector of direction cosines 
(required for models 3, 7, & 9) 

- flag indicating if ANY material exhibits 

local transverse isotropy (and global anisotropy) 

= 0 - all materials are at most globally transversely 
isotropic (D not used) 

= 1 ~ at least one material is locally transversely 
isotropic (D used) 

- longitudinal cte for material MN 

- transverse cte for material MN 




★★********+★*★*★**★****★********+***********************++*****+******** 

* BEGIN USER EDITS * 

* ★★★★★★★★★★★★★★★★★★★★★★★a*********************************************** 

c place code here 

* END USER EDITS * 

RETURN 

END 
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SUBROUTINE USRFORMDE (MN, PEM, PVM, D, LOCTISO, DNEW, 

& NE, NV, NEP, NVP, NMTS) 

c purpose: user subroutine to allow formation of material stiffness 

c matrices based on a user constitutive model (used when 

c ncmd = 99) 

c 

C INCLUDE 'parm.inc' 

IMPLICIT DOUBLE PRECISION (A - H, O - Z) 

DIMENSION DNEW ( 6 , 6) 

DIMENSION PEM (NEP, NMTS), PVM(NVP, NMTS) 

DIMENSION D(3) 

a********************************************************************** 

c on entry: 
c MN 

C PEM (NE , MN) 

c 

C PVM (NV, MN) 

c 

c D(3) 

c 

c LOCTISO 

c 
c 
c 
c 
c 
c 

c expected on exit: 

c DNEW(6, 6) - current elastic material stiffness matrix 

★ ★★**** + *★ + **★★★★*■★ + ★★ + ★★*★★** + *****★**★★★★*****★★*★*★★** + ★*******■★ + ★** 

* BEGIN USER EDITS * 

***★******■*★ + *★*■*■★*+****★★★******★*■*■*★ + * + + **■*******★*■★★*★**★*★ + *★*★★*★*★ 

c place code here 

**★ + *******★ + ★★★★**★*★***** + ★*** + *******★★★★★**■*★***** + ***★*★*★*★★★**★★★ 

* END USER EDITS * 

* ***★***★★**★★★★★* + *********★*******★*★★★★★***★***★***★★★★★★★★**'*■■*■*****■* 

RETURN 

END 


- material number 

- vector of elastic constants for material 

# MN (where NE = # of elastic constants --> 9 MAX) 

- vector of viscoplastic constants for material # MN 
(where NV = # of viscoplastic constants --> 19 MAX) 

- vector of direction cosines 
(required for models 3, 7, & 9) 

- flag indicating if ANY material exhibits 

local transverse isotropy (and global anisotropy) 

= 0 - all materials are at most globally transversely 
isotropic (D not used) 

= 1 - at least one material is locally transversely 
isotropic (D used) 
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################################################################# ###### 
SUBROUTINE USRCPEVAL ( DSA , SA, MN, TIME, TSTEP, CTEMP, DTEMPR, 

& DNEW, DOLD, PEM, PVM, D, LOCTISO, ALPA, ALPT, DDOT, 

& NE, NV, NMTS, NEP, NVP, NSASIZE) 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

IMPLICIT DOUBLE PRECISION (A - H, O - Z) 

DIMENSION DNEW( 6, 6), DOLD(6, 6) 
DIMENSION DDOT ( 6 , 6) 

DIMENSION PEM (NEP , NMTS), PVM(NVP, NMTS) 
DIMENSION ALPA {NMTS ) , ALPT (NMTS ) 
DIMENSION DSA(NSASIZE) , SA(NSASIZE) 


purpose: user subroutine to allow formation of the TIME 

derivative of the material stiffness matrix, 
this subroutine is used when: 

a) material properties are user defined and functional 

form. That is: (mat .eq. 'U') .and. (ifm .eq. 2) 

b) the constitutive model is user-defined, and the 

material properties are not functional form, and 
the material properties are temperature-dependent 
that is: (ncmd .eq. 99) .and. (ifm .ne. 2) .and. 

(ndpt .eq. 2) 




******************** 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


note: 1) in this subroutine, [SA] and [DSA] contain the 

micro {subcell ) quantities for aboudi's micromechanics model 

2) arrangement of [dsa] & [sa] arrays: 
variable location 


strain rate 

(1-6) 

(contains ENGINEERING shears) 

stress rate 

(7-12) 


inelastic 
strain rate 

(13-18) 

(contains ENGINEERING shears) 

12 "slots 1 ’ 

for state variables 

(19-30) 


thermal strain rate 

(31-36) 







********* 


c NOTE: 

c 

c 

c 

c 

c 

c 

c 

c 


quantities in [SA] and [DSA] are SUBCELL quantities - the 
values on entry are for the first subcell containing material 
# MN - the values on exit of this subroutine will be applied to 
ALL SUBCELLS containing material # MN. It is thus recommended 
that, if using the field variables, you assign the appropriate 
material # to ONE SUBCELL ONLY. Use of [SA] and [DSA] in this 
context in conjunction with bending in laminate theory will 
result in erroneous results as field variables become dependent 
on through-thickness position. 
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c 

on entry: 



c 

SA 


vector of total (integrated) quantities (see above) 

c 

DSA 

- 

vector of rate quantities (see above) 

c 

MN 

- 

material number 

c 

TIME 

- 

current time 

c 

TSTEP 

- 

current time step 

c 

CTEMP 

- 

current temperature 

c 

DTEMPR 

- 

time rate of change of temperature 

c 

DNEW ( 6 , 

6) - 

current elastic material stiffness matrix 

c 

DOLD ( 6 , 

6) - 

previous elastic material stiffness matrix 

c 

PEM (NE, 

MN) - 

vector of current elastic constants for material MN 

c 



(where NE = # of elastic constants --> 9 MAX) 

c 

PVM(NV, 

MN) - 

vector of current viscoplastic constants for 

c 



material MN 

c 



(where NV = # of elastic constants --> 19 MAX) 

c 

D ( 3 ) 

- 

vector of direction cosines 

c 



(required for models 3, 7, & 9) 

c 

LOCTISO 

- 

flag indicating if ANY material exhibits 

c 



local transverse isotropy (and global anisotropy) 

c 


= 

0 - all materials are at most globally transversely 

c 



isotropic (D not used) 

c 


= 

1 - at least one material is locally transversely 

c 



isotropic (D used) 

c 

ALPA (MN) 

- 

longitudinal cte for material MN 

c 

ALPT (MN) 

- 

transverse cte for material MN 

c 

c 

expected on exit 


c 

DDOT ( 6 , 

6) - 

derivative with respect to TIME of stiffness matrix 


★ ★★★★★I****************************************************************** 


* BEGIN USER EDITS * 

************************************************************************ 

c place code here 

**★★★+**+**+**★★★★★+★★★*****★+****★*+*★★★★★★★*★********★*****+********** 

* END USER EDITS * 

************************************************************************ 

RETURN 

END 

A description of the input and output required for each subroutine is given in the 
comment statements at the top of each subroutine. 

» Note: MAC/GMC assumes the longitudinal direction for the material is oriented 
in the x r coordinate direction, see Fig. 6. 

w Note: Example K illustrates how one could use each of these routines to 
define material properties as well as the associated elastic stiffness matrix. 
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3.8 Interface Modeling 

Interfaces in composite materials play a major role in the determination of their 
mechanical and thermal properties. Consequently, it is important to have the abil- 
ity to model interface behavior accurately. This is accomplished in MAC/GMC in 
one of two ways. The first is to define an actual interface region with its own con- 
stitutive behavior. In this way the influence of initial imperfections (flaws, voids, 
improper wetting, etc.) and induced interfacial damage (due to stress, environ- 
ment, chemical reactions, etc.) may be incorporated into the micromechanical 
analysis of the overall behavior of the composite. The development of proper inter- 
facial constitutive models is an active area of research, and MAC/GMC, through 
the use of its USRMAT routine, provides the researcher with a convenient tool for 
testing new and existing interfacial constitutive models. 

The second approach to modeling the effect of imperfect (weak) bonding 
between two phases (e.g. a fiber and a matrix) is to assume that a jump in the dis- 
placement field at an interface may occur given certain conditions, while still main- 
taining continuity of the traction vector. In the spirit of Jones and Whittier [13] and 
Achenbach and Zhu [14] we have assumed the following flexible interface model. 


, i „ 

(«» = R n a n) 

(w, = R'G') 


°#t -°DBn 

a, >g db , 


(EQ 44) 


= 0) 

<«,' = 0 ) 


CT n < °DBn 

a, <g DBi 


(EQ 45) 


where R n , R t , c DBn and c DBt are the interfacial normal and shear, compliance and 
debond stresses, respectively. Note, the implementation of the various forms for 
and R, described below will impact the definition of the concentration matrices, 
4 aPY) in the original GMC formulation or its counterpart in the reformulated ver- 
sion, see section 3.1. 

This approach to debonding has been implemented in MAC/GMC in two 
forms. In the first, R n and R, are assumed to be constants that are independent of 
time. Therefore, when the time derivative of EQ. 44 is taken (as it is for implemen- 
tation in the incremental formulation of MAC/GMC) the expression becomes, 
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, I n . L 


I . 

K = R n °n) 

if 

°n ~ C DBn 


G, >O DBi 


(EQ 46) 


Hence, the debonding is instantaneous, and immediately reaches its full extent. If 
R n and R t are chosen to be sufficiently large (as is customary), the stress at the 
interface will remain constant, with a value of <s DB after debonding occurs. 

In the second form, R n and R t are assumed to be functions of time. Thus we 
obtain 


I „ . I * / 


l . 

u = R n a_ + R n • o„ 

n rt n n n 

if 

°n ~ a DBn 

. / n ■ I r> l 

u t = R t ■ a, + R t ■ g, 

_Gf -°DBt 


(EQ 47) 


in lieu of EQ 46. The additional term present in EQ. 47 for both normal and tan- 
gential debonding is significant. If the time-dependence of R n and R, is chosen 
wisely, these additional terms will enable local unloading in the composite. For 
implementation in MAC/GMC, the following functional form of the time-depen- 
dence has been employed, 


R(t) = A[exp(jQ-l] (EQ 48) 

where t is the time since debonding, and A and B are functional parameters 
which characterize how the interface unloads. 

Figure 5 shows a simple example to illustrate the differences between the two 
implementations of this debond model. The repeating unit cell used to generate 
the results shown in this figure, is IDP= 1 as illustrated in Fig. 9. As Fig. 5 shows, 
the results generated using both implementations of the debond model are the 
same until debonding occurs at an interfacial stress of approximately 15 ksi. At 
this point, the stress at the interface in the first implementation becomes constant, 
while, in the case of the second implementation, the slope of the interfacial stress 
verses applied strain curve decreases and then the interface begins to unload. 
The effect of the difference between the two implementations on the predicted 
composite stress-strain response is shown clearly in Fig. 5, where the softer com- 
posite response is a result of additional inelasticity in the remaining matrix sub- 
cells due to the local stress redistribution from the debonded subcells. 
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Figure 5. Simulated transverse behavior using the two implementations of the 
debond model in MAC/GMC. 
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4.0 Running MAC/GMC 

MAC/GMC can be executed in one of two ways; 1) as a stand-alone code, and 
2) through the UMAT facilities of the nonlinear finite element code, ABAQUS. 
Upon linking the associated object modules that comprise MAC/GMC, an execut- 
able version of MAC/GMC is generated as well as the file "feamac.o". The file 
"feamac.o" is one of the required files to be provided to ABAQUS for finite ele- 
ment access to MAC. 

4.0.1 MAC/GMC - stand-alone: 

The execution of MAC/GMC as a stand-alone code utilizes I/O redirection. 
Execution of MAC/GMC is initiated by typing a line at the command prompt such 
as; 


MAC < infilename > outfilename 


4.0.2 FEAMAC - Accessing MAC through ABAQUS: 

To execute MAC/GMC through ABAQUS several files are required, these are 
summarized in the next section. The execution of ABAQUS for MAC/GMC 
access is as follows; 


abaqus job=abaqus_input_deck user=feamac.o 


Note: Please check the “readme” file included with your ver- 
sion for any last minute changes to this manual! 

OR you can check our web page at 

www.lerc.nasa.gov/WWW/LPB/mac/index.html 
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4.1 Input and Output Files 

The input and output files required for the stand-alone version of MAC/GMC 
and FEAMAC are specified in different ways. The differences between these 
two methods of running MAC/GMC are detailed below. 

4.1.1 MAC stand-alone 

Since MAC/GMC reads from standard in and writes to standard out, the name 
of the files used as input and output are left to the user’s discretion, i.e., will have 
no impact on the performance of the MAC/GMC code. As will be explained in the 
following sections, the user will also need to specify the names of the PATRAN 
output files and the files containing the X-Y data for plotting. 

Note that a “debug” file may be generated depending on the “PRINT’ level the 
user specifies in the input file (see 4.2.2). This file will have the name 
“mac_debug”. 

Input 

infilename 


4.1.2 FEAMAC 

Almost all of the capabilities of MAC/GMC are available through the user 
defined material facilities of the ABAQUS finite element code. Access to MAC/ 
GMC from within ABAQUS is outlined here. Currently, MAC/GMC, can only be 
access using 3D elements; however, FEAMAC has only been specifically tested 
using the C3D8 element within ABAQUS. Note any options not available or 
modified for finite element implementation are denoted subsequently by the 
following notation, for example: 

US’ FEAMAC Note: Not required by FEAMAC 

An example containing an ABAQUS input deck, required FORTRAN 
subroutines, and FEAMAC input files are given in Example O. 

ABAQUS Input Deck : 

To utilize FEAMAC, the ABAQUS input deck must contain the "‘USER 


Output 

outfilename 

debug file (mac_debug) 

PATRAN files (optional, see section 4.2.9) 
plot data files (see section 4.2.16 and 4.2.17) 
damage files (optional, see section 4.2.6) 
yield surface files (optional, see section 4.2.7) 
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SUBROUTINE", "‘USER DEFINED FIELD", "‘INITIAL CONDITIONS, 
TYPE=FIELD" , "‘EXPANSION" (if conducting nonisothermal analysis) and 
"‘USER MATERIAL" card. Where the USER SUBROUTINE card identifies the 
name of the file containing the FORTRAN subroutines required to access MAC/ 
GMC and the “USER MATERIAL” card instructs ABAQUS to obtain the materials 
stress/strain behavior from the supplied subroutines. The name of the user 
material (defined in the ABAQUS input deck), converted to upper case, will be 
appended with the file extension that has been defined in the user supplied 
FORTRAN routines, consequently this name must be used as the MAC/GMC 
input filename for the given material. Note: the material name is limited by 
ABAQUS to be 8 characters or less. See the ABAQUS Users’ Manual for a 
complete descriptions of these cards 


ABAQUS FORTRAN Subroutine Files : 

The name of this file is to be provided on the ""USER SUBROUTINE" card 
inside the ABAQUS input deck. These subroutines will be executed for every 
integration point of every element in the finite element model associated with a 
given material group. The required subroutine are listed in Example O. Only a 
portion of the FEAMACJNIT routine should be edited by the user. This portion is 
bounded by the comments; 

C *** BEGIN USER EDITS *** 

and 

C *** END OF USER EDITS *** 

The seven variables within this section that can be edited are as follows: 


PATH: 

CHARACTERS!) 

Path to working directory 

EXTENSION: 

CHARACTER* 80 

File name extension to be appended to material name to form the name 
of the MAC/GMC input deck. 

DFNAME: 

CHARATER*80 
Name of diagnostic file. 

NPEL: 

INTEGER 

Number of integration points whose data is to be plotted. 

N_PEN(N): 

INTEGER ARRAY (N:1->NPEL) 

Element numbers whose data is to be plotted. 

N_PIN(N): 

INTEGER ARRAY (N:1->NPEL) 

Integration numbers whose data is to be plotted. 
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cr Note: N_PEN() and N_PIN() pairs define locations of data extraction to be 
utilized with the ‘MACRO or ‘MICRO MAC/GMC options 


AB_PRINT: INTEGER 

Diagnostic print level for FEAMAC. 

0 -NONE 

1 - UMAT: STRESS, STRAIN, INCREMENTAL AND 
EXECUTION TRACING INFORMATION 

3 - FEAMAC_PRE: STRESS, STRAIN, INCREMENTAL AND 

EXECUTION TRACING INFORMATION 

4 - TEMPERATURE INFORMATION 

5 - STATE INFORMATION BEFORE AND AFTER CALL TO 

FEAMAC 

25 - CONSTITUTIVE MATERIAL PROPERITES 


*5* Note: Higher values of AB_PRINT provide all information provided by lower 
values plus additional information as described above. 


FEAMAC Input Deck : 

The FEAMAC input deck can be identical to the stand-alone MAC/GMC input 
deck as discussed in section 4.2. The associated file name is obtained by 
converting the material property name, defined within the ABAQUS input deck, 
to uppercase and appending the file extension specified in the FEAMACJNIT 
subroutine described previously. Since the load history definition and time 
integration are dictated by the associated ABAQUS, input deck, information in 
the MAC/GMC deck that relates to these issues will be ignored. All entries in 
section 4.2 that describe MAC/GMC options should be considered to be required 
by FEAMAC unless denoted otherwise. 

Note: Multiple FEAMAC input decks can be specific per ABAQUS run, so that 
multiple material systems can be analyzed within a given structure. 
Utilization of this option will allow the most efficient execution of large 
problems. For example, if one knows that only a small portion of the 
problem will be inelastic then define the zone of elements that may go 
inelastic by a given material group and the remainder by another. In this 
way maximum speed can be achieved, as a purely isothermal, elastic, 
problem with no micro fields being printed executes the fastest. 
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Most diagnostic messages from FEAMAC appear in the ABAQUS msg file. 
Files containing X-Y plotting information are generated for each N_PEN/N_PIN 
pair. The names for these files correspond to those defined in the MAC/GMC 
deck except that the N_PEN and N_PIN number are append to the name. 


Example: 

If in the FEAMAC JNIT subroutine the user specified; 

NPEL = 1 
N_PEN(1) = 18 
N_PIN(1) = 7 

and in the FEAMAC deck one specified; 

‘CURVE 
NP=2 % 

‘MACRO 

NT=1 

NC=1 X=1 Y=7 NAM=plot_file_sve % 

FEAMAC would provide the stress and strain data in the 11- 
direction for integration point 7 of element number 18 in a file 
named 

H PLOT_FILE_SVE.18.7.feamacro.data". 

•s* Note: see section 4.2.17 regarding curve data input 
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4.2 Input Requirements (for both MAC/GMC and FEAMAC) 

This section describes how the data should appear in the input file, infilename, 
where each line in the input file is limited to 80 characters. In the following, each 
block of input data will have its own subsection and will typically contain the following 
information: 

1) statement of purpose 

2) declaration of input data block 

3) example(s) 

4) notes 

A data block has the following 

1) ^KEYWORD 

2) input line(s) 

3) % 

where 

1) ^KEYWORD: (denotes beginning of data block) 

Each input data block begins with the appropriate keyword, which starts with the 
* symbol. For example, the keyword for selecting the method of integration is 
^SOLVER. The input routine scans the input file and locates the appropriate key- 
word and then reads the corresponding input data 

2) Input line(s): 

The input lines contain the necessary input data. The specific format of these 
input lines will be given in the following subsections. The capital letters denote 
actual variable names and lower case letters represent the possible input 
choices. Multiple inputs can be on one line, just as shown in the following. How- 
ever, at least one space must be used to separate data sets on a single line. 

Two special characters (& and #) are provided for entering the input. 

The (continuation) symbol: 

For input data that is too long to fit on a single 80 character line, the sym- 
bol is used as the continuation character. Thus, a line of data may be divided 
into a series of lines. For example, when entering the material properties all of 
the data cannot fit on a single line, thus the continuation character is required: 

EL=1 1 700., 1 1 700., 0.365, 0.365, 4287.5,1 .,1 . & 

VI=0.8E-8,0.1 ,0.1 E-5,0.,0.85E-3, 0.05,1 .,1 .,1 .,3.3,1 .8,1 .35,1 .,0.01 


general format: 
beginning of data block 

end of data block 
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The “#" (comment) symbol: 

The input file may also contain “comments” for the users convenience. The 
“#” symbol is used to mark a comment line, with the requirement that the 
“#” symbol appears in the first column. 

3) % (denotes end of data block) 

Each input block ends with the “%” symbol. The % symbol should be included 
as it signals the input routine that a particular data block has been completed. 

A sample data block is as follows, 

*SOLVER 

# NTF=2 ISTM=0.0001 ERR=0.1E-3 
NTF=2 ISTM=0. 0000024 ERR=0.1E-2 % 

Note how the # symbol is used to comment out a line of input data. Thus, the 
user can change various parameters by simply commenting out input lines con- 
taining different input data. Also, note how the data block is terminated with the % 
symbol and how it need not appear on a separate line. 

Note: It is suggested that the order of keywords in a given input file follow that 
given in this manual as some keyword ordering may give rise to prob- 
lems, since in certain cases, MAC/GMC uses input from previous key- 
words to determine which input to read from later keywords. 
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4.2.1 Header Line: 

Purpose: Define the title of this particular job (80A format). 

er Note: the Header Line is limited to orie 80 character line, and is always taken 
as the first line in the input file. 

*3- FEAMAC Note: Required by FEAMAC 

problem title 

Example: Transverse tensile response of 35% SCS6n"i-6-4 


4.2.2 Output Print Level : 

Purpose: To control the output generated. 
«® FEAMAC Note: Required by FEAMAC 

SPRINT 

NPL=np/W 


% 

Where: 

nplvl: 

-1 = print out macro stiffness matrix, engineering constants and macro- 

thermal expansion coefficients and stop 

0 = Input echo, minimal output (most commonly used) 

1 = time and iteration information 

3 = Material properties/Stiffness matrix output 

5 = Lamination information 

7 = Damage information 

9 = Ancillary data 

1 0 = program execution trace and all array data 

CAUTION: the choice 10 generates a very large output file 

Note: Print levels are inclusive, such that the current level information as well 
as all lower level information is printed. 

Example: (minimal print out) 

*PRINT 

NPL=0 % 
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4.2.3 Load Typ e: 

Purpose: To select load type 

■s* FEAMAC Note: Only LCON is required for FEAMAC, LOP, and LSS are 

Ignored by FEAMAC. 


*LOAD 

LCON=nse/ LOP =lop LSS =iopt 


% 


Where 

nseh 

1 = Thermal Load 

2 = Mechanical Load 

3 = Thermomechanical Load 

lop: (for 2-D and 3-D GMC) 

1 = axial load in 1 -direction 4 = shear load 23-direction 

2 = axial load in 2-direction 5 = shear load 13-direction 

3 = axial load in 3-direction 6 = shear load 1 2-direction 

99 = generalized loading in potentially all 6 directions 

For 2-D GMC : 

7 = axial loads in 1 and 2 directions 

8 = axial loads in 2 and 3 directions 

9 = axial load in 1 -direction and shear load in 23-direction 
10 = axial load in 2-direction and shear load in 13-direction 

For 3-D GMC : 

7 = axial loads in 1 and 2 directions 

8 = axial loads in 2 and 3 directions 

9 = axial loads in 1 and 3 directions 

10 = axial load in 1 -direction and shear load in 23-direction 

1 1 = axial load in 2-direction and shear load in 13-direction 

12 = axial load in 3-direction and shear load in 12-direction 

iopt 

1 = Strain control 

2 = Stress control 

» Note: If lop = 99 one must now enter six iopt values, for example: 

LCON= nsel LOP=lop LSS = ioptl, iopt2, iopt3, iopt4, iopt5, iopt6 

® Note: see Fig. 6 for the definitions of the directions mentioned above 

<3* Note: If using laminate option; lop = 1 , 2 or 6 are the only valid selections 
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Example: General loading option 

*LOAD 

LCON=1 LOP=99 LSS=2,1 ,2,2,2, 2 % 

i®- Note: This would correspond to specifying mixed stress and strain control, i.e.,: 

°11» e 22’ °33’ X 23’ X 31» X 12 

If however, the loads in the *MECH section were set to 0, 0.01 , 0,0, 0,0 
this would correspond to a pure strain control problem in the 22 direc- 
tion. 
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Figure 6: Coordinate Systems 
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4.2.4 Mechanical Load Control: 

Purpose: Select type of load control for mechanical load 

os- Note: This block is only required if LCON = 2 or 3 

* 3 * FEAMAC Note: All the data on the MECH card is ignored by FEAMAC 

*MECH 

NPTW=npfw Tl =tpt 2 -“-t n ptw LO= Ip^f-^nptw 


Where: 

nptw: - number of points on load curve 
t v t 2 , ...f npfvv : time values 
l 1r l 2 , —I nptw •' load curve values 

Example: 

*MECH 

NPTW=3 Tl=0., 1 2. LO=0., 20., 30. % 



i® 1 Note: For LOP=7,8,...etc (i.e., two load/displacement components) the follow- 
ing format is required (See Example J for an example): 

*MECH 

NPTW=2 Tl=0., 1.5 LO=0., 0.015 component 1 curve 

NPTW=2 Tl=0., 1 .5 LO=0., 0.01 % component 2 curve 

For LOP=99, six load/displacement components are required. 
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4.2.5 Temperature Control: 

Purpose: Select control for temperature. 

•s* Note: This block is only required if LCON = 1 or 3 

FEAMAC Note: All the data on the THERM card is ignored by FEAMAC 
*THERM 

NP I I =nptt T\=tpt 2 . — tnptw TE= t 0 f,te 2 , — tSpptt 

% 

Where: 

nptt: - number of points on temperature curve 
tp t 2 , •• t nptw : time values 
te 1t te 2 , -te np tt'- temperature curve values 

Example: 

*THERM 

NPTT=3 Tl=0., 1., 2. TE=100., 200., 150. % 
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es- Note: For the thermomechanical load t nptw = t npa , and both curves must have 
* = o . But the number and time value of the data points in-between maybe dif- 
ferent, see figure 7. 



Figure 7: Load History Specification 
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4.2.6 Fatigue Damage Option: 

Purpose: Activate the Fatigue Damage analysis option 

Note: Currently this option is only available for continuous reinforcements, 
modid=1 see section 4.2.8 

**■ FEAMAC Note: This option is currently not available from within FEAMAC 
^DAMAGE 

NCY=ncyc/e D =deld DMA X=dmax FG =fg FL =fl 
where: 

ncycle - number of “blocks” of cycles to be run (see Fig. 5) 
deld - damage increment 

dmax - maximum amount of damage allowed (0 < dmax < 1 ) 
f£T- 

0 - no macro (global) failure check 

1 - macro failure check 


0 - no micro failure check 

1 - micro failure check 

**■ Note: For FG=1 , the following data is required on a new line; 
T=ss IC=comp V=val 
Where 


1 - stress 

2 - strain 

comp: 

1 - component 1 1 

2 - component 22 

3 - component 33 

4 - component 23 

5 - component 13 

6 - component 12 

val - value of failure stress or strain (depending on value of ss) 

*3* Note: For FL=1 , see description of additional required data in section 4.2.12 
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■s- Note: the actual time vs. load data for the “block” of cycles is specified using 
the previously defined *MECH input data (section 4.2.4). 


Load 

Amplitude 




*3? Note: When the fatigue damage analysis option is activated the following addi- 
tional files will be generated: 

daml .data intermediate damage calculations 

dam2.data print-out of cycles to failure at the end of each 

load block 

dam3.data print-out of current damage in each subcell at 

the end of each load block 


Example: 

^DAMAGE 

NCY=2 D=0.25 DMAX=0.95 FG=1 FL=0 
T=1 IC=2 V=100. 

«** Note: In the above example: 

- 2 “blocks” of cycles have been specified via NCY 

- the damage increment is 0.25 (25%) with a maximum allowable amount of 
damage set to 0.95 (95%) 

- a Global failure criteria is used: stress component -22 with a failure value 
of 100. 


61 



MAC/GMO. M icromechanics A nalysis C ode 


4.2.7 Yield and Damage Surface Generation Analysis 

Purpose: Initiate probing history so as to generate flow/damage surface plots 

Note: Currently this option is only available for continuous reinforcements, 
modid=1 see section 4.2.8 

«■ FEAMAC Note: All the data on the SURF card is ignored by FEAMAC; option 
is meaningless in the context of finite element. 

*SURF 

NPRE =npre ISP =isp IAN =ian Cl =c1 C2 =c2 C3 =c3 C4 =c4 


where: 


npre - the number of preloading steps before probing for the yield surface 
begins (e.g., this is allows one to represent stress-free cooling) 

isp - stress space 

= 1 transverse-axial (a 22 -a n ) 

= 2 transverse-transverse (g 22 - cr 33 ) 

= 3 shear-axial (a 12 -a n ) 

ian - probe angle increment in degrees 


“yield” criteria: 

cl - equivalent plastic strain, J^AejjAeJj 
c2 - Surface of Constant Dissipation Rate, SCDR, 2^ • ejj 
c3 - Surface of Constant Inelastic Strain Rate, SCISR, e‘j 
c4 - Surface of Constant Inelastic Power, SCIP, a • Ae 1 


. i 



**■ Note: Results from application of this option are described in: Lissenden C. J. 
and Arnold, S. M.; “Theoretical and Experimental Considerations in 
Representing Macroscale Flow/Damage Surfaces For Metal Matrix 
Composites”, Int. Jnl. of Plasticity, Vol. 13, No. 4, pp. 327-358, 1997. 

» Note: Upon fulfillment of each criteria (i.e., cl, c2, c3, and c4) the probe angle 
and stress vector are written to output files surfl .dat, surf2.dat, 
surf3.dat, and surf4.dat, respectively, for post processing by the user. 

® Note: Probing continues until all four criteria are satisfied or the specified load 
history is completed for a given probe angle . Thus, to render a particular 
criterion inactive, use a value of 0 for the criterion so it is fulfilled immedi- 
ately, thereby rendering the associated output meaningless. Also, it is 
suggested that a large load history be imposed to ensure yielding along 
a given probe angle occurs. 
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4.2.8 Micromechanics Model Identification; 

Purpose: Select desired GMC micromechanics model 

*MODEL 

MOD=modid 

i® Note: If modid=3 (laminate option) you must enter the following line of data, 
MATSYS =matsys NLY =nly JHK=thk p thk 2> ... thk nly CON =c p 

c 2’-- c nly SVS=S 1t S 2 ,...S n iy 

ANG =a r , a 2> ... a n , y 

i®- FEAMAC Note: Currently laminate option (modid=3) is not available within 
the finite element implementation. 

% 

Where 

modid - defines micromechanics analysis 

1 = double periodicity 

2 = triple periodicity 

3 = laminate option 

matsys: - number of different material systems in the analysis 

nly: - number of layers in the laminate 

thk p thk 2 ,... thk nj y - thickness of each layer 

c p c 2 , ... c n /y - layer material type id: 1 = isotropic 2 = anisotropic 

s p s 2 , ... s n/y : - material system id number 

a p a 2 , ... a nty : - angles of each layer (in degrees) 

Example 1 : double periodicity model 

*MODEL 

MOD=1 % 


Example 2: laminate option with 1 material system 

*MODEL 

MOD=3 MATSYS=1 NLY=4 THK=0.25, 0.25, 0.25, 0.25 CON=2,2,2,2 & 
SYS=1, 1,1,1 ANG=45.,-45.,-45.,45. % 
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4.2.9 PATRAN Output; (Optional) 

Purpose: To enable generation of additional output files for use within the MSC / 
PATRAN graphical pre- and post-processing environment - when run- 
ning the MACPOST program. For details on using MACPOST, see 
NASA TM 209062 

» Note: This is an optional input lin e. If output for use in the MACPOST pro- 
gram is not desired, do NOT include this data block. Inclusion of 
this data block will increase execution time significantly, particu- 
larly for complex RVE’s, as microfield data for each subcell are 
written to additional output files. 

¥ PATRAN 

FN=prefix TPRE =tpre STP= npstp 


% 


Where: 

prefix. - filename prefix that will be assigned to the geometry file for use 

in MACPOST. 

tpre: - preloading time after which output to data files begins 

npstp: - time step interval for output to the MACPOST data files (output 

occurs every npstp time steps). 

CAUTION : a small value for npstp will cause large output files 
to be generated, which can result in significantly longer execu- 
tion times. 


Example 1: enable the generation of MACPOST output files using prefix “runl” 

*PATRAN 

fn=run1 TPRE=57600 STP=300 % 

**■ Note: If this option is chosen, MAC/GMC generates 14 additional output files for 
use in the MACPOST program within MSC/PATRAN. After the time reaches 
57600 units, data is written every 300 time steps. The following 1 4 output 
files are generated: 


prefix.macgeo: Contains unit cell (RVE) geometry data. 

prefix.total_pat.data: Contains number of time steps and number of 

subcells data 
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prefix.macro1_pat.data: Macroscopic strain data at different times 

prefix.macro2_pat.data : Macroscopic stress data at different times 

prefix.macro3_pat.data: Macroscopic inelastic strain data at different 

times 

prefix.macro4_pat.data: Macroscopic thermal strain, creep time, 

temperature, and stress invariant data at dif- 
ferent times 

prefix.micro1_pat.data: Microscopic (subcell) strain data at different 

times 

prefix.micro2_pat.data: Microscopic (subcell) stress data at different 

times 

prefix.micro3_pat.data: Microscopic (subcell) inelastic strain data at 

different times 

prefix.micro4_pat.data: Microscopic (subcell) thermal strain, creep 

time, temperature, and stress invariant data 
at different times 

prefix.micro1_pat.contour. Microscopic (subcell) strain data for contour 

plots 

prefix.micro2_pat.contour. Microscopic (subcell) stress data for contour 

plots 

prefix.micro3_pat.contour. Microscopic (subcell) inelastic strain data for 

contour plots 

prefix.micro4_pat.contour. Microscopic (subcell) thermal strain, creep 

time, temperature, and stress invariant data 
for contour plots 

See Example S for an example illustrating how to construct the required input 
deck that utilizes the PATRAN option and typical results. 

*sr Note: All 14 files listed above must be present in the active directory used 
in MSC/PATRAN in order to use the MACPOST program. For more 
details on the content of the various MACPOST files, see NASA TM 
209062. 

o’ FEAMAC Note: Invoking this option within FEAMAC, will cause all “_pat” 

extensions in the above output files to be changed \o“_feapat” 
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4.2.10 Integrator Identification 

Purpose: Select type of integration scheme 

«*■ FEAMAC Note: All the data on the *SOLVER card is ignored by FEAMAC 
*SOLVER 

NTF=ntf ... (additional data as specified below) % 

If NTF=1 , enter the following: 

NTF= 1 NPTS =npts TIM= t 1 ,t 2 ,...t npts STP =st 1 ,st 2 ,...st npts _ 1 % 

If NTF=2, enter the following: 

NTF=2 ISTM =istpm ISTT =istpt ERR =errtol % 

Where: 

ntf: 

1 = Forward Euler method (specified time step) 

2 = Predictor/Corrector method (self-adaptive time step) 

npts: = number of time points 

tj : = start and end times for load increments 

stj . = time step for that load increment 

istpm: = initial mechanical load time step 

istpt = initial thermal load time step 

errtot. = error tolerance for predictor/corrector 

**• Note: onl y istpm is required for a mechanical load (nseh 2, see section 
4.2.3) , only istpt is required for a thermal load (nseA=1) and both 
istpm and istpt are required for a thermomechanical load (nsel= 3) 

w Note: errtol is only required when using predictor/corrector ( ntf= 2) 
Suggested errtol = 0.1, if one sees oscillations in predicted 
response curve the errtol should be lowered. 


Note: Laminate option and cases using the second debonding implemen- 
tation rnust use forward euler. 


66 



MAC/GMO. M icromechanics A nalysis Code 


Example 1 : for a mechanical load, select predictor/corrector, with initial time 
step = 0.001 and error tolerance = 0.01 


*SOLVER 

NTF=2 ISTM=0.001 ERR=0.01% 

Example 2: select Forward Euler, time step = 0.01 and 0.02 

*SOLVER 

NTF=1 NPTS=3 TIM=0.,1.,2. STP=0.01 ,0.02% 


sf r = 0.01 


sf2=0.02 


ti= 0 . 



_L_ 

^ 3 = 2 - 


^Time 


4.2.11 Thermal Conductivity Calculation; (Optional) 

Purpose: Calculate the coefficients of thermal conductivity for the composite 

*COND 

er Note: If the *COND keyword is not used, the thermal conductivity calculations 
are not performed. 

Note: To use this option, all materials must be user input material properties 
(mat=U, see section 4.2.12) and must be at the same temperatures. 
MAC/GMC will then calculate the global thermal conductivities at the 
material property input temperatures, and write them to the output file, 
see Example T. 
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4.2.12 Constituent Material Model Identification: 

Purpose: To select the model for the fiber and matrix constituents. 

*FIBER 

NFIBS=n//bs 

The following new line is to be repeated for each fiber (nfibs): 

NF =nf f MS =ms f MF =ncmd f NDPT =dpt TEMP= mtemp MfiJ=mat f & 
IFM = ifm D=d 1 ,d 2 ,d 3 

^MATRIX 

NMATX=n/77afx 

The following new line is to be repeated for each matrix (nmatx): 

NM=nm m MS =ms m MM=ncmd m NDPT =dpt TEMP=m\evnp MfiJ=mat m & 
IFM= ifm D=d 1 ,d 2 ,d 3 

*MONOL (available for laminate option only) 

NM ON =nmon 

The following new line is to be repeated for each monolithic material (nmon): 
NMO =nmo iso MS =ms js0 MMO =ncmd iso NDPT =dpt TEMP= mtemp & 
MAT=maf/ so /F/tf=ifm 


% 

Where: 

nfibs: - number of different fibers 

nmatx: - number of different matrices 

nmon: - number of different monolithic layers 

nff - fiber material designation number running from 1 to nfibs, sequentially. 

nm m : - matrix material designation number running from 1 to nmatx, sequen- 

tially. 

nmOjso- - monolithic material designation number running from 1 to nmon, 
sequentially. 

msf: - fiber material system id (required only when using laminate option) 

ms m : - matrix material system id. (required only when using laminate 

option) 

ms jS0 : - monolithic material system id 
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ncmd: - material model identifier for either fiber, matrix or monolithic layer: 

1 = Bodner-Partom Model 

2 = Modified Bodner-Partom Model 

3 = Robinson Viscoplastic Model 

4 = Generalized Viscoplastic Potential Structure (GVIPS) Model 

6 = Transversely Isotropic Elastic Model (2-3 isotropic plane) 

7 = Transversely Isotropic GVIPS Model (TGVIPS) 

9 = Local Transversely Isotropic Elastic Model 

99 = User defined model (see note at the end of section for special format 
instructions) 

mat: - material identification letter for either fiber or matrix, selected from mate- 

rial database, see Table II. 

er Note: By specifying MAT=U allows the user to specify the material constants 
according to the formats specified below. 

dpt - flag indicating whether material constants should be temperature inde- 
pendent or temperature dependent 

1 = Temperature Independent 

2 = Temperature Dependent 

mtemp: - the constant temperature at which material properties are to be taken 

(only required for dpt= 1 and when using database properties) 

ifm - flag indicating whether material properties will be read from input file or 
taken from a user defined function (provided in the USRFUN subrou- 
tine) ONLY NEEDED when MAT=U. 

1 = read from input file 

2 = functional form taken from USRFUN routine 

dj: - direction vector defining the normal to the plane of local isotropy 

(only required for ncmd = 3, 7 or 9) 

«3p Note: If modid=1 (Double periodicity) and one desires transverse isotropy using 

ncmd= 3,7 or 9 then the strong material direction must be specified in the 1- 
direction. 

Note: Additional Input is required if the ^DAMAGE (section 4.2.6) option is invoked 

The following additional data is entered on a new line : 

ANG=9 BN=b BP=b’ OMU=ro u OMFL=o) fl OMM=co m ETU=q u & 

ETFL=r| fl ETM=n m BE=p A=a SFL=a fl XML-M SU=a u SK =sk % 

where: 
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= 1 skip fatigue damage calculations for this material 
= 0 perform fatigue damage calculations 

The remaining constants are described in section 3.5 

■s* Note: In addition, for FL=1 (micro failure criteria) in section 4.2.6, the additional 
data is also required: 

T=ss 1C =icomp \l=val 


1 - stress 

2 - strain 

comp: 

1 - component 1 1 

2 - component 22 

3 - component 33 

4 - component 23 

5 - component 13 

6 - component 12 

val - value of failure stress or strain (depending on value of ss) 

Example 1: select 1 fiber, SCS-6, and 1 matrix material, TIMETAL 21 S, both 
read from database; i.e., SCS-6/TIMETAL 21 S composite system 

*FIBER 

NFIB=1 

NF=1 MF=6 NDPT=1 TEMP = 23 MAT=D % 


^MATRIX 

NMATX=1 

NM=1 MM=4 NDPT=1 TEMP = 23 MAT=A % 

«■ Note: See Section 3.3 for a mathematical description of each material model. 

Example 2: (select 2 matrix materials; material 1 : Boron, read from database, 
material 2: user supplied properties) 


^MATRIX 

NMATX=2 

NM=1 MM=6 NDPT=1 MAT=U 
G A , , a T Vl= D 0 , Zq, Z 1t m, n,q 

NM=2 MM=1 NDPT=1 MAT=U 
G a , a A , a T Vl= D 0 , Z 0 , Z 1t m, n,q 


IFM=1 EL=Ei_, Ej v A , v T , & 
K= k a , k t 

IFM=1 EL=E|_, Ej v A , v r , & 
K= K^, Kj* /o 
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Note: The *y data is only required if the *COND keyword has been used; 
where k a , k t are the axial and transverse thermal conductivities, 
respectively. 


Note: Required Material constants for each model is as follows: 

Bodner-Partom: ncmd = 1 

Elastic : Inelastic : 

EL=Ei_, Ey v A , Vy, G A , a A , a T Vl= Dq, Zq, Z-j , m, n,q 

Modified Bodner-Partom: ncmd = 2 
Elastic : Inelastic : 

EL=E|_, Ey v A , Vy , G a , ql a , a T Vl= D 0 , Zq, Z-|,Z 2 , Z 3 , m-j m 2 , n, a-|, a 2 , ri, r 2 , 

Dm 1f Dm 2 


Robinson Viscoplastic: ncmd =3 
Elastic : Inelastic : 

EL=E l , E t v A , Vy, G a , a A , a 7 Vl= n, m, p, K r , p, R, H, G 0 , rj, to 
Directions : 

D=di, d 2 , d 3 


GVIPS: ncmd =4 

Elastic : Inelastic : 

EL=E, v,a Vl= p, k, R a , R K , B 0 , B x , L 0 , L, , m, n, 

P. q. w, z 0 

Elastic Model: ncmd= 6 
EL=E l , Ey v A , vy, G a> a A ,a T 


TGVIPS: ncmd =7 

Elastic : Inelastic : 

EL=E l , E t v A , Vy, G a , a A , a T Vl= k, n, p, m, p, R, H, G 0 , co, q 
Directions : 

D=d 1 ,d 2 ,d 3 


Transversely Isotropic Elastic Model: ncmd = 9 
Elastic Directions : 

EL=E l , Ey v A> Vy, G a , a A ,a T D=d-|,d 2 ,d 3 
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Table II. MAC/GMC Material Constant Database 


Model 

Material 

Temperature 
Dependent ? 

Units 

mat 

Bodner-Partom 

Aluminum (2024-T4) 

Yes 

Pa, sec,°C 

A 

ncmd= 1 

Aluminum (2024-0) 

Yes 

Pa, sec,°C 

B 

all properties 

Aluminum (6061 -0a) 

Yes 

Pa, sec,°C 

C 

taken from ref [1] 

Aluminum (6061 -Ob) 

Yes 

Pa, sec,°C 

D 


Aluminum (pure) 

Yes 

Pa, sec,°C 

E 


Titanium (pure) 

No 

Pa, sec,°C 

F 


Copper (pure) 

No 

Pa, sec,°C 

G 

Modified Bodner- 
Partom 

ncmd = 2 

TIMETAL 21 S 

Yes 

Pa, sec, °C 

A 

Robinson Visco- 

Kanthal 

No, 600°C 

ksi, hr,°C 

A | 

plastic 

FeCrAlY 

Yes 

ksi, hr, °C 

B 

ncmd = 3 

W/Kanthal (vf=35%) 

No, 600°C 

ksi, hr, °C 

C 

GVIPS 
ncmd = 4 

TIMETAL 21 S 

Yes 

ksi, sec, °C 

A 

Linear Elastic 

Boron 


Pa, °C 

A 

ncmd= 6 

SCS-6 

1 

Pa, °C 

B 

All properties are 
assumed isotropic 

Tungsten (W) 


Pa, °C 

C 

Boron 

No 

ksi, °C 

D 


SCS-6 

Yes 

ksi, °C 

E 


Tungsten (W) 

No 

o 

o 

*55 

F 

TGVIPS 
ncmd= 7 

Ti-6-4 

Yes 

ksi, sec, °C 

A 

Linear Elastic 

T50 Graphite 

No 

Pa, °C 

A 

ncmd = 9 

T300 Graphite 

No 

Pa, °C 

B 

Transversely Isotropic 

PI 00 Graphite 

Yes 

Pa, °C 

C 


T50 Graphite 

No 

ksi, °C 

D 


T300 Graphite 

No 

ksi, °C 

E 


PI 00 Graphite 

Yes 

ksi, °C 

F 


Note: Warning: It is the user’s responsibility to ensure that consistent 
material property units are being employed within a given problem. 
Particularly, when mixing database and user supplied material proper- 
ties. 
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er Note: Even if a material model is temperature independent, it can still be used 
in a nonisothermal analysis (ndpt=2). Its properties will just not vary with 
temperature. 

* 3 - Note: Required Format for User Supplied Non-lsothermal Material Con- 
stants: each of the following data statements are on separate lines. 


NTP= 

ntpts 


TEM= 

Tf, T 2 , ..., T ntp f S 

EA= 

. at 2 ’ " 

Ea t h , p „ 

ET= 

E T j , E Tt j .. 

E 'TT 

NUA= 

^ aj* v at 2 * " 

- Va t„ ip „ 

NUT= 

v 7r,’ v tt 2 * ••• 

Vt T„, p , s 

GA= 

^ AT t ’ G At 2 ' • 

..G At 

* ntpts 

ALPA= 

a Ar,’ • ■ 

• ^ A T 

* ntpts 

ALPT= 

®"TT x * a 7Y 2 ’ ‘ ■ 

.a TT 

1 ntpts 

V1 = 

^Tv^ry- 

..V\ T 

1 ntpts 

II 

CM 

> 

V2 Ta V2 T s . 

..V2j 

VN= 

vn T i , vn T i , 

...VN t 

1 ntpts 

D = 

dii d 2 , d 3 



■a* Note: The total number of viscoplastic constants (VI , V2, V3, ... VN) 

required for each model are described on the bottom of page 71 . For 
ncmd=4, three extra lines (VI 5= Ko VI 6= B 0 ’ VI 7= P K ) must be 
added. Also, D= d 1t d 2 , d 3 is only required when ncmd= 3, 7 or 9. 


ear Note: Format for User defined material model (ncmd=99): 

Given User Supplied Isothermal Material Constants, the following special for- 
mat is required: 

*FIBER 

HF\BS=nfibs 

The following line is to be repeated for each fiber (nfibs): 

NF =nf f MS =ms f MF=99 NDPT=dpt NPE =npe EL=e 1 ,e 2 ,...e npe & 
ALP=a A ,a r NPV=npv V\=v 1t v 2 ,...v npv K=k a ,k t % 
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^MATRIX 

NMATX=nmafx 

The following line is to be repeated for each matrix (nmatx): 

NM =nm m MS =ms m MM=99 NDPT=dpt NPE =npe EL=e 1 ,e 2 ,...e npe & 
ALP= a A , a T NPV=npv \l\=v 1t v 2 ,...v npv K=k a , k t % 

Where: 

npe: - total number of elastic constants (maximum of 9) 

npv. - total number of inelastic constants (model specific, max of 1 9) 

ei,e 2 ,.. - elastic constants 

Vi,v 2 , ... - inelastic constants (model specific) 

a A ,a T ,... - longitudinal and transverse thermal expansion coefficients 

k a ,k t ,... - thermal conductivities (if *COND only) 


OR given User Supplied Non-lsothermal Material Constants: 

*FIBER 

NFIBS=n//bs 

The following line is to be repeated for each fiber (nfibs): 

NF =nf f MS =ms f MF=99 NDPT=2 MAT= U IFM= 1 
NPE =npe NP \J=npv 

with the following data statements immediately following each material declaration 


on a separate line. 


NTP= 

ntpts 


TEM= 

'P 1~2’ Tptpts 

E1 = 

r,» E\ Tj > ••• 

E^t 

* ntpts 

II 

CvJ 

LU 

^2 T.’ E 2t 

,e 2t 

Enpe= 

r r 

^ npeT a npeT 

E 

2 > ■■■ c 'npeT l 

ALPA= 

a Ar,’ a /i7y 

,a at 

1 ntpts 

ALPT= 

a rr,» a 7’r 2 ’ •• 

Tt 

1 ntpts 

V1 = 


,.Vl T 

1 ntpts 
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II 

CM 

> 

V2 t< , V2 T j ...V2 t 

Vnpv= 

Vnpv T , Vnpv T , ... Vnpv T 

KA= 

k A7> k ats •• k At 

1 1 J 2 ntpts 

KT= 

I^Tt > ^Tt J • • • ^Tt 

1 1 1 1 1 2 1 ntpts 


^MATRIX 

NMATX=nmafx 


The following line is to be repeated for each matrix (nmatx): 

NM=nm m MS =ms m MM=99 NDPT=2 MAT=U IFM = 1 
NPE =npe NP V=npv 

with the following data statements immediately following each material declaration 
on a separate line. 


NTP= 

ntpts 


TEM= 

T h T 2 , .... 

E ntpts 

E1 = 

E \ r,’ E i t 2 ’ 

■ E \ T 

1 /!//*/ J 

E2= 

"27, » £ 2r 2 ’ 

...e 2 

1 ntpts 


Enpe= 

E npeT l ’ E npe Tl ’ " ' E WT n , p!s 

ALPA= 

a A7,> a A7 2 ’ • 

. .OC^y, 

ALPT= 

a 7r l ’ a 77 2 ’ • 

• a 77 

J nr/>u 

V1 = 


...V1 T 

J ntpts 

V2= 

V2 Tl . V2 T2 , . 

...V2 t 

1 ntpts 


Vnpv= 

Vnpv^j, W tip 

V 7i , -Vnpv T ^ 

KA= 


J nr/m 

KT= 

k 7Y,’ 

,.K Tt 

1 ntpts 


75 



MAC/GMC. Micromechanics A nalysis Code 


**' Note: Required material user subroutines; see Example K for details on how 
they integrate together 

USRFUN: - Routine that defines functional form for material properties 

Required when: ifm=2 and mat=U 

USRFORMDE; - Routine that forms the stiffness matrix. Required when 
ncmd = 99 

USRCPEVAL: - Routine that defines the time derivative of the stiffness 

matrix. Required when: 

a) ifm=2 and mat=U 

b) ncmd=99 AND ifm=1 AND ndpt=2 
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4.2.13 RVE Data : 

Purpose: Select RVE representing desired fiber packing arrangement/archi- 
tecture. 

*MRVE 

\DP=idp 


For Double Periodic RVE (i.e.. MOD=1): 

*3* Note: The following data is entered on the same line as IDP (except where 
noted) 

Without Interface: 

• For IDP = 0 

no further data required (only used for a monolithic layer in a laminate) 

• For IDP = 1, 2,or 3 

V F=vf 

• For IDP = 4 

VF =vf XA =xa 

• For IDP = 6 

VF=vf R =R 

• For IDP = 7 

VF=i rf R =R 

• For IDP = 9 

VF1=vf7 RADI =rad1 VF2 =vf2 RAD2=rad2 R =R 

• For IDP = 11 

VF=vf RAD =rad1 R =R 

• For IDP = 13 

VF=vf R =R 

With Interface: 

• For IDP = 1,2, or 3 

VF=vf RAD=racf7 CPER =cper 

• For IDP = 4 

«3* Currently NOT Available 

• For IDP = 6 

VF=vf R= R CPER =cper 

• For IDP = 7 

«3* Currently NOT Available 
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• For IDP = 9 

VF1 =vf1 RADI =rad1 CPER1 =cper1 VF2 =vf2 & 
RAD2=rad2 CPER2 =cper2 R =R 

• IDP = 11 

VF =vf RAD =rad1 R =R CPER =cper 

• For IDP = 13 

*5- Currently NOT Available 

% 


where: 

vf, vfl, vf2 = the fiber volume ratios 

rad, radl, rad2 = fiber radii 

cper, cperl, cper2 = ratios of interface thickness to fiber radius 

xa = length of the cross, see Fig. 10. 

R = X/Y which defines the ratio of distances between fiber centers within a 
“ply” and those between a “ply” (see Fig. 1 1 ) 


w Note: For the laminate option the RVE data has the following input format: 

*MRVE 

IDP =idp, 1t idp t2 , ... idp n i y 
L=1 VF= ... (rve data for layer 1) 

L=2 VF= ... (rve data for layer 2) 

L=n/y VF= ... (rve data for layer nltf 


Where: 

idp:- unique identifying number of each Double Periodic RVE as given below 

idp Description 

• 1 = Square Fiber, Square Pack (original 4-cell model) 

V f < 1/(1 +A) 2 

RVE shown in Fig. 9 
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idp Description 

• 2= Square Fiber, Triangular (hexagonal) Pack 

V j < 0.86602/( 1 + A) 2 
RVE shown in Fig. 9 

• 3 = Square Fiber, Square Diagonal Pack; 

V f <0.5/(1 + A) 2 

RVE shown in Fig. 9 



IDP = 3 IDP = 4 


Matrix 


Fiber 



Figure 9: RVE’s Available in MAC/GMC 
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idp 
4 = 


6 = 


7= 


Description 

Cross Shaped Fiber, Square Pack 
V f < 1-4 (xa) 2 
RVE shown in Fig. 9 

7x7 Circular Fiber Approximation Rectangular or Square Pack 

0.8125 


V f < 

R(l+A)* 

R{ 08125) 

V f ~ 2 

(l+A) 2 


if 

if 


R> 1.0 


R< 1.0 


RVE shown in Fig. 9 

14x14 Circular Fiber Approximation Rectangular or Square Pack 

0.8148 


V f*‘ 


R 


if 


R> 1.0 


9 = 


V f <R( 0.8148) if R< 1.0 
RVE shown in Fig. 9 

Two Different Size Square Fibers, Rectangular or Square 
Pack 

1 




R 


R 


/. 


-|2 


V, < 


(1+A 2 ) + (1+A,)-^ 
R fl] 

h 


f ' r (Rf\ 2 

lU/.> 


(l + a 2 ) + 


(R f \ 
/ 2 

Rf 


(l+A,) 




r R ~' 2 


R 


L 


> 1 


RVE shown in Fig. 9 

i®’ Note: Two fibers and two interfaces must be defined in ‘Fiber and ‘Interface. 

«®' Note: V j will be altered, if necessary, such that an integer number of small 
fibers fit within the RVE. 
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idp 


• 11 = 


• 13 = 


Description 

Square Fiber, Rectangular Pack 


v f* 


V f* 


1 

R(l+A) : 

R 


if 


if 


(1+A)‘ 

RVE shown in Fig. 9 
26 x 26 Circular Fiber, Rectangular or 


R> 1.0 
R< 1.0 

Square Pack 


v K 0.80613 
f ~ R 


if R> 1.0 


Vy <0.80613/? if R< 1.0 
RVE shown in Fig. 9 

Note: R fi = radl , /?y 2 = rad2 and if no interface is present, A = cper, A, = cperl 
and A 2 = cper2 should be taken to be zero, in the above formulas. 


• 99 = User Defined RVE 

Example of RVE representing random packing shown in Fig. 
12. Required input shown in Example I. 


Example: Triangular packing with interface thickness 1% of fiber radius. 
*MRVE 

IDP=2 VF=35 RAD=0.07 CPER=0.01 % 
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Figure 10: Cross Shaped Fiber Distance xa 



Figure 1 1 : Hybrid Composite RVE; IDP = 9. Large Fiber Spacing Ratio, R=X/Y 
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IDP,= 99 


Figure 12: User defined RVE (see Example I) 
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For Triple Periodic RVE (i.e.. MOD=2): 

vs- Note: The following data is entered on the same line as the IDP data, except 
where noted. 

Thus for 

• For IDP = 1 

VF=trf ASP=asp 

• For IDP = 2 

VF =vf ASP1=asp1 ASP2=asp2 

• For IDP = 3 

VF=i rf ASP1=asp1 ASP2=asp2 DR=dr 


where, 

a sp,asp1 - are the aspect ratio of the short fiber (i.e., fiber length/fiber 
diameter; e.g. in IDP=3 this is (d 1 + d 2 + d 3 )/ h-/) 

asp2 - is the aspect ratio of the unit cell , d/h (see Fig. 2) 

dr - is the ratio di/d 3 which quantifies the fiber off-set (see Fig. 1 3) 

• For IDP = 4 

One of the following lines should be entered after t he IDP data depending 
upon the option desired 

OPT=1 A=a B=b C=c D=d H=h L=l % 

OPT=2 VF=vf A=a B=b C=c RD=rd RL=rl % 

OPT=3 VF=vf RA=ra RC=rc D=d H=h L=l % 

OPT=4 VF=vf A=a B=b C=c RD=rd RLC= rlc % 


where, 

a,b, and c are the ellipsoid’s semi-major axes (see Fig. 13) 

d, h and I are the unit cell dimensions (see Fig. 13) 

rd = aspect ratio of d/h 

rl = aspect ratio of l/h 

ra = aspect ratio of a/b 

rc = aspect ratio of c/b 

rlc = aspect ratio of l/(2c) 

• For IDP = 10 
VF =vf 


Where 

idp:- unique identifying number of each Triple Periodic RVE given Fig. 13 
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idp 


• 1 = 


Description 

Short fibers in Square array, with equal spacing in all direc- 
tions (i.e., d 2 = h 2 = l 2 see Fig. 13) 


• 2 = 


• 3= 


• 4= 


0< V f < 1 

RVE shown in Fig. 13 

Short fibers in Diagonal array, with variable inclusion spacing 
in the Xi - direction 




if 


if 


RVE shown in Fig. 13 


Asp 1 < Aspl 


Asp 1 > Asp 2 


Off-set short fibers in square array, variable fiber spacing in 
the x-| - direction — NOTE Aspl > Asp2 


v f<& 


if 


if 


Aspl 

Aspl 


>2 


Asp 1 
Aspl < 


2 


V 


f 



RVE shown in Fig. 13 


Ellipsoidal Inclusion 


*3* Note: Analytical expressions for Vf limits are unavailable as forming this unit 
cell geometry requires solution of non-linear equations. 


«■ Note: Use of non-physical ellipsoid unit cell dimensions (e.g., 2b > h) will cause 
execution of MAC/GMC to stop. 

• 10= Open cell 


0< V f < 1 

Note: Solid material (see Fig. 13) is the matrix material specified in ‘MATRIX, 
whereas, the “open” material is the fiber material specified in ‘FIBER. To 
simulate a truly “open cell” material, specify a fiber material with the 
properties of air, thus fiber volume fraction becomes the void fraction 

• 99= User defined RVE 
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ns 1 Note: The following is the format for the user defined RVE’s, IDP = 99 (see 
Fig. 12 for an example). 

1 ) For 2zD RVE: (Each line of data must be on a separate line) 


NB =nb NG =ng 
H —hf, h£, •••• h n g 

L -ht l2< h, b 


CM -SS n b l,SS n b2<--- s S n b n g 


repeat data for the ( nb x ng) 2-D RVE 


CM=SSj i,SSf'2<-" SS 1,ng 


2) For 3^D RVE: (Each line of data must be on a separate line) 

NA=na NB=nb NG=ng 
= d i , d2> ■ • • dna 
1^2' — ^ ng 
1-=//, /gi Inb 

CM =SS na j i<SS na 2 t l<— ss na,nb„ 1 
CM=SS na _f J jiSSpg.j 2,1’— ss na-1,nb„1 

repeat data for the ( na xnbx ng) 3-D RVE 

CM=SS-f i n g,SS 12, ng^‘- ss 1 ,nb,ng 

Where: 

ssjj and ss jj k - are the identifying material labels which are given in the 
following format: 

first character: F - for a fiber or M - for matrix 

second character: 1, 2, 3, ... for fiber/matrix number 1, 2, 3 ... 

na - number of subcells in the alpha direction 

nb - number of subcells in the beta direction 

ng - number of subcells in the gamma direction 

h - the height of each subcell ^-dimension) 

I - the length of each subcell (x 3 - dimension) 

d - the depth of each subcell (x r dimension) 
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IDP = 1 



IDP = 2 



IDP = 3 


Figure 13 Available 3-D RVE’s 
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''Z 


Ellipsoidal Inclusion RVE (IDP = 4 ) 
Figure 13 con’t: Available 3-D RVE’s 
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( 2 . 2 . 1 ) 


C1.2.SJ 




IDP=10 - Open cell 
Figure 1 3 con’t: Available 3-D RVE’s 
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er Note: A 2-D (continuous reinforcement) and 3-D (discontinuous reinforce- 
ment) example are described next with a detailed example of the user 
defined inputs being found in Example 1 , 2-D case, and in Examples H 
and N, for the 3-D case. 


7 

3,1 

8 

3,2 

9 

3,3 

4 

5 

6 

2,1 

2,2 

2,3 

l 

2 

3 

1,1 

1,2 

1,3 

y, / 



Fiber 


Matrix^ 



Figure 14 


Example: 2-D user defined RVE (as shown above) 

*MRVE 

IDP=99 
NB=3 NG=3 
H=1.,1.,1. 

L=1.,1.,1. 

CM=M1,M1,M1 
CM=M1,M1,F1 
CM=F1,M1,M1 % 


i®* Note: the fiber ID is FI and the matrix ID is Ml 
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Figure 15 

Example: A 3-D User defined RVE (as shown above), representing a [0/90] 
continuous reinforced laminate composite. 

•s’ Note: The fiber is material number FI and the matrix is material number 
Ml. 
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*MRVE 

IDP=99 ASP=1. 
NA=4 NB=2 NG=2 
D=1.,1.,1.,1. 

H=1.,1. 

L=1.,1. 

CM=M1,M1 
CM=M1 ,M1 
CM=M1 ,M1 
CM=F1,M1 
CM=M1 ,M1 
CM=F1,F1 
CM=M1 ,M1 
CM=F1,M1 % 


Figure 16 


rows 1 -4 are for cross-section 1 ( 7 ^ 1 ) 


rows 5-8 are for cross-section 2 (y=2) 
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4.2.14 Interface Data : (Optional, for IDP=1, 2, 3, 6 or 11) 

Purpose: Specify interface layer properties 

^INTERFACE 

NINT=n//7f 

The following line is to be repeated for each interface(nint): 

Nl =nm, MS=mSj Ml =ncmdj NDPT =dpt TEMP=mtemp MAT=maf, IFM=ifmi D=d 1 ,d 2 ,d 3 

% 

**■ Note: If MAT= U, see section 4.2.12 for format of additional input required. 


Where 


nint 

- number of different interfaces 

rim,: 

- f h interface number 

msj: 
ricmdj: 
mat j 

- matrix material system id. (required only when using laminate option) 

- material model identifier for the t h interface 

- material id letter for the f h interface 

dpt 

- flag indicating whether material constants should be temperature indepen- 
dent or temperature dependent 

1 = Temperature Independent 

2 = Temperature Dependent 

mtemp: 

- the constant temperature at which material properties are to be taken 

(only required for dpt= 1 and when using database properties) 

ifm 

- flag indicating whether material properties will be read from input file or 
taken from a user defined function (provided in the USRFUN subroutine) 

ONLY NEEDED when MAT=U. 

1 = read from input file 

2 = functional form taken from USRFUN routine 

dj: 

- direction vector defining the normal to the plane of local isotropy 
(only required for ncmd = 3, 7 or 9) 


**■ Note: Please refer to section 4.2.12 for ncmd and mat values 


Example: (Assuming one interface with user supplied material constants) 

‘INTERFACE 

NINT=1 

Nl=1 Ml=4 NDPT=1 MAT=U IFM=1 & 

EL=1 1700.,0.365,1 .0E-06 & 

VI=0.8E-8,0.1 ,0.1 E-5.0..0.85E-3, 0.05,1., 1.,1 .,3.3,1 .8,1 .35,1 .,0.01 % 
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4.2.15 Debond Data: (Optional) 

Purpose: Specify the subcell faces where debonding can take place (see sec- 
tion 3.8) 


2-D GMC Model Format 

*DEBOND 

Nll=n//' 

# Option 1 

DBCH= 1 NBI =nbi NGI =ngi FACE =nfc RN=rn BDN -bdstrn RS=rs & 
BDS =bdstrs T\=tmd 
OR 

# Option 2 

DBCH= 2 NBI=nb/ NGI =ngi FACE =nfc BDN=j bdstrn GCN =gamman& 
BCN= betan TOLN =toln BDS= bdstrs GCS=gammas BCS =betas T\=tmd 


repeat nii times 


3-D GMC Model Format 

*DEBOND 

Nll=n// 

# Option 1 

DBCH= 1 NAI=na/ NBI =nbi NGI =ngi FACE =nfc RN=rn BDN=bdstrn& 
RS =rs BDS=bdstrs Tl =tmd 
OR 

# Option 2 

DBCH= 2 NAI=na/' NBI=nb/ NGI =ngi FACE =nfc BDN =bdstrn & 

GCN =gamman BCN= betan TOLN =toln BDS= bdstrs GCS=gammas & 
BCS =betas l\=tmd 


% 

Laminate Model Format 


« Note: Currently this is only available for continuous reinforcements, modid=1 
see section 4.2.8 

*DEBOND 

L=1 Nll=n/'/ (data for layer 1) 

see 2-D GMC format above — for required input here 

L=2 Nii=nii (data for layer 2) 

see 2-D GMC format above — for required input here 

L=n/y Nii=n//' (data for layer n/y) 

see 2-D GMC format above — for required input here 

% 


95 



MAC/GMC. M icromechanics A nalysis C ode 


Where: 

nir. 

dbch: 

nai, nbi and ngr. 

nfc: 


- number of subcell interfaces with debonding 

- debond model implementation choice, =1 (for first) or = 2 
(for second), see section 3.8 

- subcell indices (a, p, y) 

- used specify which “face” of the subcell is to be deb- 
onded (See Fig. 17 and 18) 


For 2-D GMC 
= 1 Top Face 
= 2 Right Face 
= 3 Both Faces 

For 3-D GMC 

= 1 Top Face = 4 Top & Right Face = 7 ALL Faces 

= 2 Right Face = 5 Top & Back Face 

= 3 Back Face = 6 Right & Back Face 


rn: 

bdstrn: 

rs: 

bdstrs r. 
tmd. 


- R n value (see section 3.8) 

- debond stress, normal component 

- R s value (see section 3.8) 

- debond stress, shear component 

- time at which debond criteria becomes active 
(defaults to tmd= 0. if not specified) 


gamman: 

gammas: 

betan: 

betas: 

toln: 


• A n value (see section 3.8) 

- A s value (see section 3.8) 

- B n value (see section 3.8) 

- B s value (see section 3.8) 

- Normal stress reversal tolerance for unloading (i.e., 
stress value that is low enough to treat as zero stress - 
interface has closed) 


® Note: For the Laminate Model Only: Nll=0 specifies NO debonding for 
that layer and no additional debond data is required. 


e5r Note: All debond parameters must be calibrated for a given composite 

system. Example M provides some initial estimates for an SCS-6/Ti 
system. 
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Example 1 : 

allow debonding of subcell 1,1 top face normal component starting at 
time = 11 

Nll=1 

DBCH= 1 NBI=1 NGI=1 FACE=1 RN=1. BDN=100. RS=0. BDS=0. Tl* 11. 
Example 2: 

allow debonding of subcell 1,1 right face shear component starting at 
time = 15 

Nll=1 

DBCH= 1 NBI=1 NGI=1 FACE=2 RN=0. BDN=0. RS=1. BDS=100. Tl= 15. 

Example 3: Three Layer Laminate Analysis 

debond subcell 1,1 right face shear component for layer 2 only 

L=1 Nll=0 (no debonding specified) 

L=2 N 11=1 

DBCH=1 NBI=1 NGI=1 FACE=2 RS=1. BDN=100. 

L=3 Nll=0 (no debonding specified) 




FIBER 

(1.1) 



Top Face 


( 1 , 1 ) 


Right Face 


Figure 17: Subcell Faces For2-D GMC 
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4.2.16 Plot Point Information : 

Purpose: Specify the frequency at which data will be written to output files for 
both X-Y data 


*CURVE 

UP=npmax 


% 

Where: 

npmax-. - plot point increment 


Example: (print out every fifth data point) 

*CURVE 

NP=5 % 
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4.2.17 Curve Data : 

Note: Currently a maximum of 5 macro and 5 micro curves may be specified 
per problem 


Specifying Curve Data For Macro (composite) Quantities : 

*MACRO 

NT=nucuv 

Repeat the following line nucuv times: 

NC =nocu X=maidx Y=maidy NAM=tname 

% 


Where: 

nuciN - total number of curves 

nocu: - curve number 

maidx and maidy variable options are: 


e \\ 

7-On 

13-e'n 

19-30 n.a. 36 -y',3 

e 22 

8 - 022 

14-4 

31 - ef, 37 - Total Time 

e 33 

9 - 

1 5 - e 33 

32 - £22 38 - Creep Time 

y 2 3 

10* ^23 

1 0 * 7*23 

33 - £33 39 - Temperature 

y 13 

11 - X 13 

17-y' 13 

0 A th 

34 - Y 23 

y 12 

12-t 12 

18-y' 12 

OfT th 

35 - Y 12 


tname: - name of plot file 

«* Note: The file(s) generated will be of the form tname_ macro.data. If the user 
desires to use the same tname for files 2-5, a double quote, “, is entered 
for tname. Those files then will have the form: 

fna/T?e2_macro.data 
tname 3_macro.data 
etc. 

(see the example on the next page for more details) 

FEAMAC Note: The file(s) generated when running FEAMAC will be of the 
form fname.element#.integrationpt#.feamacro.data, see section 4.1.2. 
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EXAMPLE: 

*MACRO 

NT=3 


NC=1 

X=1 

Y=7 

NAM=stress 

file created: stress_macro.data 

NC=2 

X=37 

Y=13 

NAM =“ 

file created:stress2_macro.data 

NC=3 

X=38 

Y=13 

NAM= plot % 

file created: plot_macro.data 


cr Note: For the Laminate option, the maidx and maidy variable options are 
modified as follows: 


1 ’ l xx 

7- N xx 

15 - N X y 

21 - 23 n.a. 

31 -N T xx 

37 - Total Time 

2 - 

8 - Nyy 

1 6 - M xx 

24- ic 

xy 

32 - N^y 

38 - Creep Time 

IOJ 

i 

CO 

9-11 n.a. 

17 -M\y 

25 - M xx 

33 - N X y 

39 - Temperature 

4 - n.a. 

12- N x y 

18- M X y 

26 - M yy 

34 - M T xx 



— / 



—T 


5 - n.a. 

13 -N xx 

19- ic 

XX 

27 - 29 n.a. 

35 ■ M yy 


6- y xy 

14- Nyy 

20- ic 

yy 

30 - Mxy 

36 - M T xy 



is- Note: When using laminate option, resultant forces (N X x. Nyy, or N XY ) are out- 
put in place of stress components. To obtain associated stresses one 
must merely divide resultant force by overall laminate thickness. Also, 
the strains are mid-plane strains while i 33 represents the average strain 
through the thickness. 


Specifying Curve Data for Micro (subcelh Quantities : 

*MICRO 

NT=nucuv 

Repeat the following line nucuv times: 

NC -nocu LYR =lyr CELL =nssel X=maidx Y=maidy NAM =tname2 

% 


Where: 

nucLN - total number of curves 
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rtocu\ - curve number 

lyr. - layer number (only required when using laminate option) 

nsseh - subcell number (see next page for details on numbering) 

tnameZ - name of plot file 
maidx and maidy variable options are: 


e l\ 

7 -<*n 

13- ei, 

19-On 

25-*i, 

31 - efj 

37- Total Time 

e 22 

8 - <7 2 2 

1 4 - e 22 

20 - <I> 22 

26 - 4*22 

32 - e 22 

38 - Creep Time 

e 33 

9 - a 33 

1 5 - e 33 

21 - 0 33 

27-4*33 

33 - e 33 

39 - Temperature 

^23 

10 - T 2 3 

16-723 

22 - <D 23 

28 - 4*2 3 

o A th 

34 - y 2 3 


y i3 

11 -*13 

17 - y ', 3 

23 - 0 13 

29 - 4* 13 

35 - y',2 


y 12 

12-t 12 

18-712 

24 - 0 12 

30- 4* 12 

36 - Yn 



*3” Note: The quantities <t> and 4* are the possible internal state variables (constitutive 
model dependent). 

(3- Note: For the Laminate option, the data will be output for both integration points 
within a layer. Thus 4 rather than 2 columns of data will appear in the associ- 
ated output file(s), with the first 2 columns representing the x and y quantities at 
the lower quadrature point and the last 2 columns those associated with the 
upper quadrature point (see Example P). 

*3* Note: The file(s) generated will be of the form fname2_micro.data. If the user desires 
to use the same tname 2 for files 2-5, a double quote, ", is entered for tname 2. 
Those files then will have the form: 

tnar ne22_micro.data 
tname 23_micro. data 
etc. 

*3* Note: The file(s) generated when running the laminate option will be of the form 
tname. l#.micro.data, where # indicates the layer number, see example below 

*3- FEAMAC Note: The file(s) generated when running FEAMAC will be of the form 
fname.element#.integrationpt#.feamicro.data, again see section 4 . 1 . 2 . 
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cr Note: Subcell numbering is assigned according to the following algo- 
rithm. 

2-D case 


Do* IB=1,NB 
Do* IG=1,NG 

subcell number = NG*(IB-1)+IG 

* continue 

Note: Refer to numbers in upper left corners of subcells in Fig. 14 for 
example of 2-D subcell numbering scheme. 

3-D case 

Do* IA=1,NA 
Do* IB=1,NB 
Do* IG=1,NG 

subcell number = IA+(IB-1 )*NA+(IG-1 )*NA*NB 

* continue 

os- Note: Refer to numbers in upper left corners of subcells in Fig. 16 for 
example of 3-D subcell numbering scheme. 


EXAMPLE: 

*MICRO 

NT = 1 

NC=1 CELL=1 X=1 Y=7 NAM=cel! % file created:cell_micro.data 


EXAMPLE: Assuming laminate comprised of 2 layers 

*MICRO 

NT = 2 

NC=1 LYR=1 CELL=2 X=3 Y=2 NAM=lam-x2 % 

file created:lam-x2.M .micro. data 

NC=2 LYR=2 CELL=2 X=3 Y=1 NAM=lam-x3 % 

file created:lam-x3.l2.micro.data 
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5.0 Conclusion/Future Modifications 

A computationally efficient, user-friendly, comprehensive, micromechanics anal- 
ysis tool, MAC/GMC, has been presented that admits physically based viscoplas- 
tic deformation and life models, can analyze continuous or discontinuous multi- 
phased materials of interest in advanced propulsion systems, and can assist both 
the materials scientist and structural analyst in developing, designing and analyz- 
ing strategic materials. MAC/GMC’s most outstanding feature is its ability to accu- 
rately model various laminated fiber architectures (including both shape and 
packing arrangements) at minimal expense both from a computational and 
required user input standpoint. However, the development of this tool is far from 
complete. A number of possible future enhancements that are planned or cur- 
rently underway include: 

• Provision of an implicit integration algorithm to improve computational effi- 
ciency. 

•The incorporation of woven composite IDP architectures. 

•The ability to analyze smart composites, i.e. piezoelectric, etc. 

•The addition of debond unit cells, so as to minimize user input. 

•The incorporation of additional damage evolution laws and failure criteria 
(e.g., ultimate longitudinal and transverse tensile strength) so as to auto- 
mate life estimates. 

•The incorporation of viscoelastic behavior models for the analysis of ele- 
vated temperature polymeric composites. 

•The ability to use the triple-periodicity model in conjunction with laminate 
theory allowing individual lamina to be reinforced with particulates or 
weaves. 
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6.0 EXAMPLE PROBLEMS 

It is recommended that a new user construct a MAC/GMC input file using the data 
given in these Examples and then check to see if the same result plots and/or files 
are obtained. 

6.1 Example A: Pure Mechanical Load 

Sample Input File For A Mechanical Load Problem 
The following example is used to explain the control blocks in more detail. 
Problem Summary : 


Load Type: 

Mechanical 

Load Component: 

22-direction (transverse to fiber) 

Load History: 

Monotonic 

Load Control: 

Strain 

Load History Data: 

e = 8.333* lO^/sec, 


e = 0.015, 


e = 0. 

min 


^initial = 0.0000024 sec 

Micromechanics model: 

Double Periodicity 

Fiber Packing Arrangement: 

Hexagonal Pack at 35% fiber volume ratio 

Integration Algorithm: 

Predictor/Corrector 

Constituent Material Model: 

GVIPS - isotropic form 

Constituents: 

Fiber: SCS-6 

Matrix: TIMETAL21S 

Interface: fictitious weak interface for 
TIMETAL21S 

<®* Note: This example will take an extremely long time to run due to the elas- 
tic-perfectly viscoplastic definition of the fictitious weak interface, as the 
overall time step is limited to that of the allowable interface time step. 
This slow computational response is NOT indicative of GMC. 
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Mechanical load, no residual, perfectly viscoplastic interface, takes long time 
‘PRINT 
NPL=0 % 

‘LOAD 

LCON=2 LOP=2 LSS=1 % 

*MECH 

NPTW=2 Tl=0.,18. L0=0.,0.015 % 

‘MODEL 
MOD=1 % 

‘SOLVER 

NTF=2 ISTM=0.0000024 ERR=0.1E-2 % 

‘FIBER 

NFIBS=1 

NF=1 MF=6 NDPT=1 MAT=D TEMP=650 % 

‘MATRIX 

NMATX=1 

NM=1 MM=4 NDPT=1 MAT=A TEMP=650 % 

*MRVE 

IDP=2 VF=0.35 RAD=0.07 CPER=0.1 % 

‘INTERFACE 

NINT=1 

N 1=1 Ml=4 NDPT=1 MAT=U IFM=1 & 

EL=1 1700., 0.365,1. & 

VI=0.8E-8,0.1 ,0.1 E-5,0.,0.85E-3, 0.05,1 .,1 .,1 .,3.3,1 .8,1 .35,1 .,0.01 % 
‘CURVE 
NP=1 % 

‘MACRO 

NT=1 

NC=1 X=2 Y=8 NAM=apdxa % 

‘END 
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The following figure was obtained from the x-y plot data file produced by the 
present example. 



Strain (%) 


*s- Note: Using this fictitious interface model the qualitative feature of a weak bond 
(reduction below that of the matrix only ) is obtained, however an accu- 
rate fit of the experimental data is still lacking. For a more accurate pre- 
diction of transverse behavior see Examples C and D. 
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6.2 Example B: Pure Thermal Problem 


Sample Input File For A Thermal Load Problem 
The following example is used to explain the control blocks in more detail. 
Problem Summary : 

Load Type: Thermal 

Load History Data: T = 0 01 °C/sec, 


= 371. 1°C 


T = 2 1 . 1 °C 

min 


Micromechanics model: 
Fiber Packing Arrangement: 
Integration Algorithm: 
Constituent Material Model: 
Constituents: 


At initial = 17.505 sec 
Double Periodicity 

Square Pack at 35% fiber volume ratio 

Predictor/Corrector 

Bodner-Partom 

Fiber: T50 Graphite 
Matrix: Aluminum (2024-T4) 


Note: This problem is taken from reference 1., pg. .238 
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cooldown heatup bodner model aboudi prob. pre/cor gmc2d 
‘PRINT 
NPL=0 % 

‘LOAD 
LCON=1 % 

‘THERM 

NPTT=3 Tl=0.,35010., 70020. & 

TE=371. 1,21. 1,371.1 % 

‘MODEL 
MOD=1 % 

‘SOLVER 

NTF=2 ISTT=1 7.505 ERR=0.001 % 

‘FIBER 

NFIBS=1 

NF=1 MF=9 NDPT=2 MAT=A D=1.,0.,0.% 

‘MATRIX 

NMATX=1 

NM=1 MM=1 NDPT=2 MAT=A % 

*MRVE 

IDP=1 VF=0.30 % 

‘CURVE 
NP=5 % 

‘MACRO 

NT=1 

NC=1 X=39 Y=1 NAM=apdxb % 

‘END 
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The following figure was obtained from the x-y plot data file produced by the 
present example. 


xlO ' 2 



*3- Note: It is recommended that a new user construct a mac input file using the 
data given in this Example and then check to see if the same result plot 
is obtained. 
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6.3 Example C: Thermomechanical Load Problem 


Sample Input File For A Thermomechanical Load Problem 

The following example is used to explain how to impose thermal residual stresses 
due to manufacturing into mechanical analysis. 


Problem Summary : 
Load Type: 

Load Component: 
Load History: 

Load Control: 

Load History Data: 


Thermomechanical 
33-direction (transverse to fiber) 

Cyclic 

Strain 

Cool-down from 900 °C to 23 °C then hold tem- 
perature constant during mechanical loading 

.-2 


T = 1.52a: 10 


°C/sec 


e = 1.666x10 /sec, £ max = 0.015, 


£ min = °- 


Micromechanics model: 
Fiber Packing Arrangement: 
Integration Algorithm: 
Constituent Material Model: 
Constituents: 

Debonding: 


thermal = 100 ‘ SeC - At mech = 0.1 SeC 

Double Periodicity 

Rectangular Pack at 33% fiber volume ratio 

Forward Euler 

GVIPS - isotropic form 

Fiber: SCS-6 (properties input manually) 

Matrix: TIMETAL21S 

First implementation of debond model 


Note: This example demonstrates how one would included the effects of 
residual stresses on the composite behavior. Also, although strain 
control is prescribe, during a pure cool down MAC/GMC allows 
Poisson’s strains to be incurred. 
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test of residual stress idp=1 1 23C apply transverse loading 
*PRINT 
NPL=0 % 

•LOAD 

LCON=3 LOP=3 LSS=1 % 

# LCON=3 LOP=1 LSS=1 % 

*MECH 

NPTW=3 Tl=0., 57600., 57690. LO=0.,0., 0.015 % 

# NPTW=3TI=0., 57600., 57750. L0=0.,0.,0.015 % 

•THERM 

NPTT=3 TI=0., 57600., 57690. TE=900.,23.,23. % 

# NPTT=3 Tl=0., 57600., 57750. TE=900.,23.,23. % 

•MODEL 

MOD=1 % 

•SOLVER 

NTF=1 NPTS=3 TIM=0., 57600., 57690. STP=100.,0.1 % 

# NTF=1 NPTS=3 TIM=0., 57600., 57750. STP=1 00., 0.1 % 

•FIBER 

NFIBS=1 

# Use GVIPS but make it elastic k=1E20, so it represents SCS-6 fiber 
NF=1 MF=4 NDPT=1 MAT=U IFM=1 & 

EL=58.E3, 0.32, 3.5E-06 & 

VI=0.8E-9,1 .E20, 0.1 E-5,0.,0.85E-4, 0.05,1 .,1 .,1 .,3.3,1 .8,1 .35,1 .,0.01 % 
•MATRIX 
NMATX=1 

NM=1 MM=4 NDPT=2 MAT=A % 

•MRVE 

IDP=1 1 VF=0.33 RAD=0.07 R=1.1 1 1 1 % 

•DEBOND 

Nll=2 

DBCH=1 NBI=1 NGI=1 FACE=2 RN=0.1 BDN=14. Tl=57600. 

DBCH=1 NBI=1 NGI=2 FACE=2 RN=0.1 BDN=14. Tl=57600. % 
•CURVE 
NP=2 % 

•MACRO 

NT=2 

NC=1 X=3 Y=9 NAM=apdxc-t 
NC=2 X=1 Y=7 NAM=apdxc-l 
•END 


112 



MAC/GMO. M icromechanics A nalysis C ode 


The following figure was obtained from the x-y plot data file produced by the present 
example. 



0.0 0.2 0.4 0.6 0.8 1.0 1.2 1.4 1.6 


Strain (%) 


*** Note: In order to produce the longitudinal response curve one must change the 
direction of loading (LOP=1 instead of 3) and the mechanical strain rate 
imposed, so as to agree with the imposed experimental history by 
commenting and uncommenting the appropriate lines under ‘LOAD, *MECH, 
‘THERM, and ‘SOLVER. 

^ Note: It is recommended that a new user construct a MAC/GMC input file using the 
data given in this Example and then check to see if the same resulting plot 
can be obtained. 
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Load History Data: Cool-down from 900°C to 534°C to 23°C, heat-up to 

650°C, then hold temperature.during mechanical load- 
ing 

T =0.01 52 °C/sec, 0.0871 °C/sec 
£ =1 .666x1 O' 4 /sec, e =0.018, e =0. 
A ^rm a /= 2 50.,40.sec.; A t mech =0.4 sec. 


Micromechanics Model: 
Fiber Packing Arrangement: 
Repeating Unit Cell: 
Integration Algorithm: 
Constituent Material Model: 

Constituents: 

Debonding: 

Debond Parameters: 


Double Periodicity 

Rectangular Pack, R = 1.1111, 35% fiber volume ratio 
26x26 circular fiber cross-section approximation 
Forward Euler 

Fiber: Elastic, transversely isotropic 

Matrix: GVIPS - isotropic form 

Fiber: SCS-6 (temp. dep. properties input man- 

ually) 

Matrix: TIMETAL21S 

Second implementation of debond model 
g db = + C x /\sl°pe\ , a° DB =7.ks\,C^= 15.ksi 

. 3 

A = A 0 - C 2 /\slope \ , A a = 0.06^ , 

C, = 0.03997 B = 165 1/sec 

L kip 
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*3- Note: The debond parameters a° DB and A have been weighted with respect to 
the local slope (i.e., x 2 /x 3 ) of the representative circular fiber at each 
interface (see IDP=13 Figure 9). This helps correct for the fact that the 
representative circle has interfaces normal to the loading direction (due 
to the necessarily rectangular-shaped subcells), while an actual circular 
fiber does not. For an actual circular fiber, the fiber matrix interface is 
only normal to the loading direction at two points, and as we trace the 
fiber’s perimeter away from these points, the interface becomes increas- 
ingly parallel to the loading direction. In our representative fiber, we thus 
provide interfaces that are more parallel to the loading direction with 
larger debond strengths since the component of stress normal to the 
actual fiber interface (at this point) is lower. Similarly, we provide these 
more parallel interfaces with lower values of A so that, once debonding 
occurs, the stress at the simulated interface (which is in the global load- 
ing direction) unloads more slowly. The weighting has been chosen as 
linear (with respect to the local interfacial slope) for simplicity and 

because this introduces only one additional parameter for each of o° DB 

and A. Note that modeling of interfacial debonding is an area of active 
research using MAC/GMC, and thus the techniques employed in this 
example are still developing. 

The results of this example shown in the following figure have been plot- 
ted only to an applied strain level of 0.016 because at this point the slope 
of the predicted global stress-strain curve becomes negative. We are 
treating this as a criterion for simulated global failure of the composite. 

The interfacial curves shown in the figure are NOT simple plots of the 
*MICRO output files. Rather, the microlevel stress from these output 
files is plotted versus the macro level strain applied to the composite 
from the first *MACRO output file. 
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test of refined subcell transverse debonding 
‘PRINT 
NPL=1 % 

‘LOAD 

LCON=3 LOP=3 LSS=1 % 

*MECH 

NPTW=5 Tl=0., 24000., 57600. ,64800., 64908. L0=0.,0.,0.,0.,0.018 % 

‘THERM 

NPTT=5 Tl=0.,24000., 57600., 64800., 64908. TE=900., 534.583, 23., 650., 650. % 
‘MODEL 
MOD=1 % 

‘SOLVER 

NTF=1 NPTS=5 TIM=0., 24000., 57600., 64800., 64908. STP=250.,40.,40.,0.4 % 
‘FIBER 
NFIBS=1 

NF=1 MF=6 NDPT=2 MAT=U IFM=1 
NTP=6 

TEM=21 .1 ,204.44,31 5.56,426.67,537.78,871 .1 1 
EA=57.0E3,55.98E3,55.4E3,54.82E3,54.24E3,53.36E3 
ET=57.0E3,55.98E3,55.4E3,54.82E3,54.24E3,53.36E3 
NUA=0.25, 0.25, 0.25, 0.25, 0.25, 0.25 
NUT=0.25, 0.25, 0.25, 0.25, 0.25, 0.25 

GA=22.8E3,22.392E3,22. 1 6E3.21 .928E3.21 .696E3.21 .344E3 
ALPA=3.564E-6,3.618E-6,3.726E-6,3.906E-6,4.068E-6,4.572E-6 
ALPT=3.564E-6,3.618E-6,3.726E-6,3.906E-6,4.068E-6,4.572E-6 
‘MATRIX 
NMATX=1 

NM=1 MM=4 NDPT=2 MAT=A % 

*MRVE 

IDP=13 VF=0.35 R=1 .111111111 
‘DEBOND 
N 1 1=48 

DBCH=2 NBI=13 NGI= 1 FACE= 2 BDN=7. GCN=0.060 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI=12 NGI= 2 FACE= 2 BDN=11.3 GCN=0.0486 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=1 1 NGI= 3 FACE= 2 BDN=12. GCN=0.0467 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=10 NGI= 4 FACE= 2 BDN=17. GCN=0.0334 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 9 NGI= 5 FACE= 2 BDN=18.3 GCN=0.0300 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 8 NGI= 6 FACE= 2 BDN=19. GCN=0.0280 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 7 NGI= 7 FACE= 2 BDN=22. GCN=0.0200 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 
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DBCH=2 NBI= 6 NGI= 8 FACE= 2 BDN=25.8 GCN=0.0100 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 5 NGI= 9 FACE= 2 BDN=27. GCN=0.00671 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 4 NGI=10 FACE= 2 BDN=29.5 GCN=0.000045 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI= 3 NGI=1 1 FACE= 2 BDN=52. GCN=0.0 BCN=16.5 TOLN=1 & 

BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI= 2 NGI=12 FACE= 2 BDN=59.5 GCN=0.0 BCN=16.5 TOLN=1 & 

BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 2 NGI=14 FACE= 2 BDN=59.5 GCN=0.0 BCN=16.5 TOLN=1 & 

BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 3 NGI=15 FACE= 2 BDN=52. GCN=0.0 BCN=16.5 TOLN=1 & 

BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 4 NGI=16 FACE= 2 BDN=29.5 GCN=0.000045 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 5 NGI=17 FACE= 2 BDN=27. GCN=0.00671 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 6 NGI=18 FACE= 2 BDN=25.8 GCN=0.0100 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI= 7 NGI=19 FACE= 2 BDN=22. GCN=0.0200 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 8 NGI=20 FACE= 2 BDN=19. GCN=0.0280 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI= 9 NGI=21 FACE= 2 BDN=18.3 GCN=0.0300 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=10 NGI=22 FACE= 2 BDN=17. GCN=0.0334 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI=1 1 NGI=23 FACE= 2 BDN=12. GCN=0.0467 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI=12 NGI=24 FACE= 2 BDN=11.3 GCN=0.0486 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=13 NGI=25 FACE= 2 BDN=7. GCN=0.060 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=14 NGI=25 FACE= 2 BDN=7. GCN=0.060 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI=1 5 NGI=24 FACE= 2 BDN=1 1 .3 GCN=0.0486 BCN=1 6.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI=16 NGI=23 FACE= 2 BDN=12. GCN=0.0467 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=17 NGI=22 FACE= 2 BDN=17. GCN=0.0334 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=18 NGI=21 FACE= 2 BDN=18.3 GCN=0.0300 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=19 NGI=20 FACE= 2 BDN=19. GCN=0.0280 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 
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DBCH=2 NBI=20 NGI=19 FACE= 2 BDN=22. GCN=0.0200 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI=21 NGI=18 FACE= 2 BDN=25.8 GCN=0.0100 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=22 NGI=17 FACE= 2 BDN=27. GCN=0.00671 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=23 NGI=16 FACE= 2 BDN=29.5 GCN=0.000045 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=24 NGI=1 5 FACE= 2 BDN=52. GCN=0.0 BCN=1 6.5 TOLN=1 & 

BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=25 NGI=14 FACE= 2 BDN=59.5 GCN=0.0 BCN=16.5 TOLN=1 & 

BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=25 NGI=12 FACE= 2 BDN=59.5 GCN=0.0 BCN=16.5 TOLN=1 & 

BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=24 NGI=1 1 FACE= 2 BDN=52. GCN=0.0 BCN=16.5 TOLN=1 & 

BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=23 NGI=10 FACE= 2 BDN=29.5 GCN=0.000045 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=22 NGI= 9 FACE= 2 BDN=27. GCN=0.00671 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=21 NGI= 8 FACE= 2 BDN=25.8 GCN=0.0100 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=20 NGI= 7 FACE= 2 BDN=22. GCN=0.0200 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=19 NGI= 6 FACE= 2 BDN=19. GCN=0.0280 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=18 NGI= 5 FACE= 2 BDN=18.3 GCN=0.0300 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=17 NGI= 4 FACE= 2 BDN=17. GCN=0.0334 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=16 NGI= 3 FACE= 2 BDN=12. GCN=0.0467 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=100 Tl=64800 

DBCH=2 NBI=15 NGI= 2 FACE= 2 BDN=11.3 GCN=0.0486 BCN=16.5 TOLN=1 & 
BDS= 40 GCS=0.1 BCS=1 00 Tl=64800 

DBCH=2 NBI=14 NGI= 1 FACE= 2 BDN=7. GCN=0.060 BCN=16.5 TOLN=1 & 

BDS= 40 GCS=0.1 BCS=100 Tl=64800 
‘CURVE 
NP=3 % 

‘MACRO 

NT=2 

NC=1 X=3 Y=9 NAM=TRAN-M 
NC=2 X=24 Y=3 NAM=TRAN-T 
‘MICRO 
NT=5 
# 13,1 

NC=1 CELL=31 3 X=3 Y=9 NAM=TRAN-1 


118 



MAC/GMC. Micromechanics A nalysis Code 


#2,14 

NC=2 CELL=40 X=3 Y=9 NAM=TRAN-2 
#4,16 

NC=3 CELL=94 X=3 Y=9 NAM=TRAN-3 
#7,19 

NC=4 CELL=175 X=3 Y=9 NAM=TRAN-4 
#5,17 

NC=5 CELL=121 X=3 Y=9 NAM=TRAN-5 % 

*END 

The following figure was obtained from the x-y plot data file produced by the present 
example. 
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6.5 Example E: General Loading 

Sample Input File for General Loading 

Problem Summary 


Load Type: 

Thermo-Mechanical 

Load History Data: 

Combined: 

33 - normal strain (transverse to fiber) 
1 3 - shear strain 
1 2 - shear strain 

1 1 , 22 , and 23 component stress-free 
Heat-up from 23 °C to 223 0 C 

Load History: 

Monotonic 

Load Control: 

Combined stress and strain 

Load History Data: 

T = 1.85 °C/sec 


e 33 = 9.26x10 /sec, e 33max = 0.01 , e 33m(>1 = 0 
e i3 = 5.56xlO~ 5 /sec, e 13majt = 0.006, e 13m ,„ = 0 
e 12 = 1.1 lx 10 -4 /sec, t\2max = 0012. £12 min = 0 


At = 0.4 sec 
Double Periodicity 

Square Pack, R = 1 45% fiber volume ratio 
2x2 subcells, square pack using IDP=1 1 
Forward Euler 

Fiber: Elastic, isotropic 

Matrix: GVIPS - isotropic form 

Fiber: SCS-6 (temp. dep. properties 

input manually) 

Matrix: TIMETAL21 S 


Micromechanics Model: 
Fiber Packing Arrangement: 
Repeating Unit Cell: 
Integration Algorithm: 
Constituent Material Model: 

Constituents: 
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example of general loading 
‘PRINT 
NPL=1 % 

‘LOAD 

LCON=3 LOP=99 LSS=2,2, 1 ,2, 1 , 1 % 

*MECH 

NPTW=2 Tl=0.,108. LO=0.,0. 

NPTW=2 Tl=0.,108. LO=0.,0. 

NPTW=2 Tl=0.,108. L0=0.,0.01 
NPTW=2 Tl=0.,108. LO=0.,0. 

NPTW=2 Tl=0.,108. LO=0., 0.006 
NPTW=2 Tl=0.,108. L0=0.,0.012 
‘THERM 

NPTT=2 Tl=0.,108. TE=23.,223. 

‘MODEL 
MOD=1 % 

‘SOLVER 

NTF=1 NPTS=2 TIM=0.,108. STP=0.4 % 

‘FIBER 

NFIBS=1 

NF=1 MF=9 NDPT=2 IFM= 1 MAT=U 
NTP=6 

TEM=21 .1 ,204.44,31 5.56,426.67,537.78,871 .1 1 
EA=57.0E3,55.98E3,55.4E3,54.82E3,54.24E3,53.36E3 
ET=57.0E3,55.98E3,55.4E3,54.82E3,54.24E3,53.36E3 
NUA=0.25, 0.25, 0.25, 0.25, 0.25, 0.25 
NUT=0.25, 0.25, 0.25, 0.25, 0.25, 0.25 

GA=22.8E3,22.392E3,22.1 6E3.21 .928E3.21 .696E3.21 .344E3 
ALPA=3.564E-6,3.618E-6,3.726E-6,3.906E-6,4.068E-6,4.572E-6 
ALPT=3.564E-6,3.618E-6,3.726E-6,3.906E-6,4.068E-6,4.572E-6 
D=1.,0.,0. 

‘MATRIX 

NMATX=1 

NM=1 MM=4 NDPT=2 MAT =A % 

*MRVE 

IDP=1 1 VF=0.45 RAD=0.07 R=1.0 
‘CURVE 
NP=5 % 

‘MACRO 

NT=4 

NC=1 X=3 Y=9 NAM=GENLD-33 
NC=2 X=5 Y=1 1 NAM=GENLD-13 
NC=3 X=6 Y=12 NAM=GENLD-12 
NC=4 X=39 Y=1 NAM=GENLD-T % 

‘END 
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The following figures were obtained from the x-y plot data file produced by the 
present example. 
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6.6 Example F: Unidirectional Laminate Problem 

Sample Input File For A Laminate Problem 

The following example is used to explain the control blocks in more detail. 
Problem Summary: 

Load Type: 

Mechanical 

Load History: 

Monotonic 

Load Control: 

Strain 

Load History Data: 

e = 0.01 /sec, 

Zmax = 001 - 
At CO nstant= 0.00025 sec 

Micromechanics model: 

Laminate Theory 

Fiber Packing Arrangement: 

Square Pack at 46% fiber volume ratio 

Integration Algorithm: 

Forward Euler 

Constituent Material Model: 

Bodner-Partom 

Constituents: 

Fiber: Boron 

Matrix: Aluminum (6061 -0a) 
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test of laminate strain control 
‘PRINT 
NPL=0 % 

‘LOAD 

LCON=2 LOP=1 LSS=1 % 

*MECH 

NPTW=2 Tl=0.,1. L0=0.,0.01 % 

‘MODEL 

MOD=3 MATSYS=1 NLY=1 THK=1 . CON =2 SYS=1 ANG=45. % 

# MOD=3 MATSYS=1 NLY=1 THK=1 . CON=2 SYS=1 ANG=0. % 

# MOD=3 MATSYS=1 NLY=1 THK=1 . CON=2 SYS=1 ANG=90. % 

# MOD=3 MATSYS=1 NLY=1 THK=1 . CON=2 SYS=1 ANG=10. % 
‘SOLVER 

NTF=1 NPTS=2 TIM=0.,1. STP=0.00025 % 

‘FIBER 

NFIBS=1 

NF=1 MS=1 MF=6 NDPT=1 TEMP=21. MAT=A % 

‘MATRIX 

NMATX=1 

NM=1 MS=1 MM=1 NDPT=1 TEMP=21. MAT=C % 

*MRVE 

IDP=1 

L=1 VF^0.46 % 

‘CURVE 
NP=10 % 

‘MACRO 

NT=1 

NC=1 X=1 Y=7 NAM=apdxf % 

‘END 
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The following figures were obtained from the x-y plot data file produced by the 
present example. The validity of these predictions were assessed by comparing 
these results to those previously obtain from: 


1200 

1000 



9=90 

0=0 
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6.7 Example G: A Cross-Ply Laminate Problem 

Sample Input File For A Laminate Problem 
The following example is used to explain the control blocks in more detail. 
Problem Summary : 

Load Type: 

Load History: 

Load Control: 

Load History Data: 

Micromechanics model: 

Fiber Packing Arrangement: 

Integration Algorithm: 

Constituent Material Model: 

Constituents: 

es’ Note: This problem is taken from the reference: 

Analysis of Metal-Matrix Composite Structures-ll. Laminate Analysis, 
Arenburg, R. T. and Reddy, J. N., Computers and Structures, Vol. 40, 
N.6, pp. 1369-1385, 1991. 


Mechanical 

Monotonic 

Stress 

d = 0.01 ksi/sec, 

<*»« = 45. ksi, 

^constant = 1-125 sec 

[±45] f Laminate with Double Periodicity 

Square Pack at 45% fiber volume ratio 

Forward Euler 

Bodner-Partom 

Fiber: Boron (properties input manually) 

Matrix: Aluminum (properties input manually) 
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test of [+-45]2s laminate stress control 
‘PRINT 
NPL=0 % 

‘LOAD 

LCON=2 LOP=1 LSS=2 % 

*MECH 

NPTW=2 Tl=0.,4500. LO=0.,45. % 

‘MODEL 

MOD=3 MATSYS=1 NLY=4 & 

THK=0.25, 0.25,0.25, 0.25 & 

CON= 2, 2, 2, 2 & 

SYS= 1, 1, 1, 1 & 

ANG=45.,-45.,-45.,45. % 

‘SOLVER 

NTF=1 NPTS=2 TIM=0.,4500. STP=1.125 % 

‘FIBER 

NFIBS=1 

NF=1 MS=1 MF=6 NDPT=1 MAT=U IFM=1 & 

EL=58.E3, 58.E3, 0.20, 0.20, 24.1 7E3,6.3E-6,8.28E-6 % 
‘MATRIX 
NMATX=1 

NM=1 MS=1 MM=1 NDPT=1 MAT=U IFM=1 & 
EL=9.53E3,9.53E3, 0.33, 0.33, 3.58E3, 21 .06E-6.21 .06E-6 & 
VI=1.E4,49.,63.,300.,4.,1. % 

*MRVE 
IDP=1, 1,1,1 
L=1 VF=0.45 % 

L=2 VF=0.45 % 

L=3 VF=0.45 % 

L=4 VF=0.45 % 

‘CURVE 
NP=10 % 

‘MACRO 

NT=1 

NC=1 X=1 Y=7 NAM=apdxg % 

‘END 
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The following figure was obtained from the x-y plot data file produced by the 
present example and for validation was compared to Arenburg and Reddy, Fig. 
16, pg. 1382. 
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6.8 Example H: Triple Periodic GMC; [0/90] 


Sample Input File For Triple Periodic GMC 


Problem Summary : 
Loading: 

Load History Data: 


Micromechanics model: 
Fiber Packing Arrangement: 

Integration Algorithm: 
Constituent Material Model: 
Constituents: 


Mechanical, Strain control 
e = 0.01 /sec, 

W = 0.01 , 

At c0 nslant= 0-00025 sec 
Triple Periodic GMC 

Rectangular Pack at 46% fiber volume ratio 
(input manually, see figure below) 

Forward Euler 

Bodner-Partom 

Fiber: Boron 

Matrix: Aluminum (6061 -0a) 


This problem uses the 3-D GMC model to simulate a [0/90] laminate as shown 
below. 



Fiber 

Matrix 
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test of gmc3d model 0/90 laminate simulation 
‘PRINT 
NPL=10 % 

‘LOAD 

LCON=2 LOP=3 LSS=1 % 

*MECH 

NPTW=2 Tl=0.,1 . L0=0.,0.01 % 

‘MODEL 
MOD=2 % 

‘SOLVER 

NTF=1 NPTS=2 TIM=0.,1 . STP=0.00025 % 
‘FIBER 
NFIBS=1 

NF=1 MF=6 NDPT=1 TEMP= 21. MAT=A % 
‘MATRIX 
NMATX=1 

NM=1 MM=1 NDPT=1 TEMP= 21. MAT=C % 
*MRVE 
IDP=99 

NA=4 NB=2 NG=2 

D=0. 67823,0. 321 77,0.67823,0.321 77 

H=0.67823, 0.321 77 

L=0.321 77,0.67823 

CM=M1,M1 

CM=M1,M1 

CM=M1,M1 

CM=F1,M1 

CM=M1,M1 

CM=F1,F1 

CM=M1,M1 

CM=F1,M1 % 

‘CURVE 
NP=10 % 

‘MACRO 

NT=1 

NC=1 X=3 Y=9 NAM=apdxh % 

‘END 
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The following figure was obtained from the x-y plot data file produced by the 
present example. 



e xx 


Note: It is recommended that a new user construct a MAC/GMC input file using 
the data given in this Example and then check to see if the same result 
plot is obtained. 
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6.9 Example I: A User Defined RVE 

Sample Input File For A User Defined RVE 


The following example is used to explain how to enter a user defined architecture. 


Problem Summary : 

Load Type: 

Load History: 

Load Control: 


Mechanical 

Monotonic 

Strain 


Load History Data: 


Micromechanics model: 
Fiber Packing Arrangement: 
Integration Algorithm: 
Constituent Material Model: 


e = 0.1 /sec, 


0.01 , 


^constant - ^ sec 
Double periodic 

Random composite (see figure 13) 

Forward Euler 

Bodner-Partom 


Constituents: 


Fiber: Boron 

Matrix: Aluminum (6061 -Oa) 
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random composite rve using 2-d gmc 
‘PRINT 
NPL=-1 % 

‘LOAD 

LCON=2 LOP=2 LSS=1 % 

*MECH 

NPTW=2 Tl=0.,0.1 L0=0.,0.01 % 

‘MODEL 
MOD=1 % 

‘SOLVER 

NTF=1 NPTS=2 TIM=0.,0.1 STP=0.00005 % 

‘FIBER 

NFIBS=1 

NF=1 MF=6 NDPT=1 TEMP=21. MAT=A % 

‘MATRIX 

NMATX=1 

NM=1 MM=1 NDPT=1 TEMP=21 . MAT=C % 

*MRVE 
IDP=99 
NB=14 NG=14 

L=1.,1.,1.,1.,1.,1.,1.,1.,1 

CM=F1,M1 ) M1,M1,M1,M1,F1,F1,M1 I M1,F1 ) F1 t M1,F1 
CM=F1,M1 1 F1,F1,M1,M1,F1,F1,M1,M1 I M1 1 M1 1 M1 I F1 
CM=M1, Ml, FI, FI, Ml, Ml, Ml, Ml, Ml, Ml, FI, FI, Ml, Ml 
CM=M1 I M1,M1,M1 ) M1,M1,M1,F1,F1 I M1,F1 1 F1 1 M1 I M1 
CM=M1, Ml, FI, FI, Ml, Ml, Ml, FI, FI, Ml, Ml, Ml, Ml, Ml 
CM=F1, Ml, FI, FI, Ml, Ml, Ml, Ml, Ml, Ml, FI, FI, Ml, FI 
CM=F1, Ml, Ml, Ml, Ml, FI, FI, Ml, Ml, Ml, FI, FI, Ml, FI 
CM=M1, Ml, Ml, Ml, Ml, FI, FI, Ml, Ml, Ml, Ml, Ml, Ml, Ml 
CM=M1,F1 ,F1 ,M1 ,M1 ,M1 ,M1 ,M1 ,F1 ,F1 ,M1 ,F1 ,F1 ,M1 
CM=M1, FI, FI, Ml, FI, FI, Ml, Ml, FI, FI, Ml, FI, FI, Ml 
CM=M1, Ml, Ml, Ml, FI, FI, FI, FI, Ml, Ml, Ml, Ml, Ml, Ml 
CM=F1, FI, Ml, Ml, Ml, Ml, FI, FI, Ml, Ml, Ml, FI, FI, Ml 
CM=F1, FI, Ml, Ml, Ml, Ml, Ml, Ml, Ml, Ml, Ml, FI, FI, Ml 
CM=M1, Ml, Ml, Ml, Ml, Ml, Ml, Ml, Ml, Ml, FI, FI, Ml, Ml % 
‘CURVE 
NP=1 % 

‘MACRO 

NT=1 

NC=1 X=2 Y=8 NAM=apdxi % 

‘END 
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The corresponding output produced: 


MATERIAL NO . = 1 VOLUME RATIO= 0.347E+00 

MATERIAL NO . = 2 VOLUME RATIO= 0.653E+00 


CG - Effective/Macro Stiffness Matrix 
0 . 221E+12 0.610E+11 0.608E+11 

0.610E+11 0 . 148E+12 0.675E+11 

0 . 608E+11 0.675E+11 0.147E+12 

0 . 384E+11 

0 . 392E+11 

0 . 398E+11 


Cl - Inverse of Effective/Macro Stiffness 
0 . 537E-11 -0 . 152E-11 -0.153E-11 

-0.152E-11 0 . 897E-11 -0.350E-11 

-0 . 153E-11 -0 . 350E-11 0.906E-11 

0 . 260E-10 

0 . 255E-10 

0 . 251E-10 


Effective Engineering Moduli 


E11S= 

0 . 186E+12 

N12S= 

0 . 282E+00 

E22S= 

0 . 111E+12 

N23S= 

0 .390E+00 

E33S= 

0.110E+12 

G23S= 

0 . 384E+11 

G13S= 

0 . 392E+11 

G12S= 

0 . 398E+11 


Effective Thermal Expansion Coefficients 
0 . 120E-04 0 . 192E-04 0.196E-04 

STOPPING: NPLVL == -1 

ENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDEND 

/ / | / / _ \\ 

/ II \l I I I I 

/ / / / | / /_/ / 

/ /_/ | _/ / 

ENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDEND 
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6.10 Example J: A Biaxial Load 

Sample Input File For A Biaxial Load 

The following example is used to explain how to impose a biaxial load state. 
Problem Summary : 


Load Type: 

Mechanical 

Load History: 

Monotonic 

Load Control: 

Strain 

Load History Data: 

ej, = 0.01 /sec ,s 2 2 = 0.0067 /sec 


e iw = 0015 ^ = ooi • 


At CO nstant= 001 5 sec 

Micromechanics model: 

Double Periodic 

Fiber Packing Arrangement: 

Square Pack at 35% fiber volume ratio 

Integration Algorithm: 

Forward Euler 

Constituent Material Model: 

GVIPS 


Constituents: Fiber: SCS-6 (GVIPS forced to be elastic) 

Matrix: TIMETAL 21 S 
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test of biaxial load 
•PRINT 
NPL=7 % 

•LOAD 

LCON=2 LOP=7 LSS=1 % 

*MECH 

NPTW=2 Tl=0.,1.5 L0=0.,0.015 
NPTW=2 Tl=0.,1.5 LO=0., 0.010 % 

•MODEL 
MOD=1 % 

•SOLVER 

NTF=1 NPTS=2 TIM=0.,1.5 STP=0.015 % 

•FIBER 

NFIBS=1 

NF=1 MF=4 NDPT=1 MAT=U IFM=1& 

EL=58.E3,0.32,3.5E-06 & 

VI=0.8E-9,1 .E20, 0.1 E-5,0.,0.85E-4, 0.05,1 .,1 .,1 .,3.3,1 .8,1 .35,1 .,0.01 % 
•MATRIX 
NMATX=1 

NM=1 MM=4 NDPT=1 TEMP=650. MAT=A % 

*MRVE 

IDP=1 VF=0.35 % 

•CURVE 
NP=1 % 

•MACRO 

NT=2 

NC=1 X=1 Y=7 NAM=biaxl 
NC=2 X=2 Y=8 NAM=biaxt % 

•END 
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The following figure was obtained from the x-y plot data file produced by the 
present example. 
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6.11 Example K: User Defined Inelastic Material Model 


Sample Input File For A User Defined Material Model 
Problem Summary : 

Load Type: Thermomechanical 

Load History: Cyclic 

Load Control: Strain 


Load History Data: 


Micromechanics model: 

Fiber Packing Arrangement: 

Integration Algorithm: 
Constituent Material Model: 

Constituents: 


Cool-down from 400°C to 23°C , hold temperature 
during mechanical loading 

T =0.419 °C/sec 

6 =1.667x1 O' 4 /sec, s„„ =0.015, e mi „=0. 
At ,hermal=°- 5seC < At mech =0-05 SeC. 

Double Periodicity 
User Input 4x2 RVE with 2 fibers 
Forward Euler 

Fiber 1 : User Model (elastic) 

Fiber 2: User Model (elastic) 

Matrix: User Model (Bodner-Partom via USRMAT) 

Fiber 1 : Imaginary material, user function material 

properties. Elastic modulus is a function of 
longitudinal strain: 

^new = TOO- 80. ( £j ( )(Eprevious) 
with units of MPa 

Fiber 2: Imaginary material, temperature depen- 

dent properties input manually. 

Matrix: Imaginary material, user function tempera- 

ture dependent material properties, (see 
USRFUN subroutine) 


■sr Note: The purpose here is to demonstrate how to use the various user definable 

subroutines, i.e., USRMAT, USRFUN, USRFORMDE, USRCPEVAL see sec- 
tion 4.2.12 for more information. 
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test of user subroutines/input 
‘PRINT 
NPL=10 % 

‘LOAD 

LCON=3 LOP=1 LSS=1 % 

*MECH 

NPTW=3 Tl=0.,900.,990. L0=0.,0.,0.015 % 

‘THERM 

NPTT=3 Tl=0.,900.,990. TE=400.,23.,23. % 

‘MODEL 
MOD=1 % 

‘SOLVER 

NTF=1 NPTS=3 TIM=0.,900.,990 STP=0.5,0.05 % 
‘FIBER 
NFIBS=2 

NF=1 MF=99 NDPT=2 MAT=U IFM=2 

NF=2 MF=99 NDPT=2 MAT=U IFM=1 NPE=2 NPV=0 

NTP=3 

TEM=21 .,200. ,400. 

El =31 4.1 E9,293.2E9,253.0E9 
E2=0. 33, 0.33, 0.33 
ALPA=4.5E-6,5.3E-6,6.1 E-6 
ALPT=4.5E-6,5.3E-6,6.1 E-6 
‘MATRIX 
NMATX=1 

NM=1 MM=99 NDPT=2 MAT=U IFM=2 % 

*MRVE 
IDP=99 
NB=4 NG=2 
H=1.,1.,1.,1. 

L=1.,1. 

CM=M1,M1 
CM=F2,M1 
CM=M1,M1 
CM=F1,M1 
‘CURVE 
NP=2 % 

‘MACRO 

NT=1 

NC=1 X=1 Y=7 NAM=apdx-k 
‘END 
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Figure was obtained from the x-y plot data file pri 
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The USRMAT subroutine 

The USRMAT subroutine is used here to implement the Bodner-Partom Visco- 
plastic model currently available in MAC/GMC 

C####################################################################### 

SUBROUTINE USRMAT (DSA, SA, PE, PV, D, LOCTISO, TIME, TSTEP , 

& CTEMP, DTEMPR, NIO, NE, NV, NS, MN, CDUM, DMGF, 

& NEP, NVP , NSASIZE) 

c purpose: user material constitutive model for determination of 

c the inelastic strain and state variable rates 

c (used when ncmd = 99) 


IMPLICIT DOUBLE PRECISION (A - H, 0 - Z) 


CHARACTER* 2 CDUM 
DIMENSION SS ( 6 ) , S(6), R(6) 
DIMENSION DSA (NSASIZE) , SA (NSASIZE) 
DIMENSION PV (NVP) , PE(NEP), D(3) 


★ ★★★★ + **** + ******'*****'*'*'******'***'*****'*'*'***********'*'^ r *‘* r * , *’**********^ f **** 


c note: 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


1) in this subroutine, [SA] and [DSA] contain the 

micro (subcell) quantities for aboudi ' s micromechanics model 

2) arrangement of [dsa] & [sa] arrays: 

variable location 


strain rate 

(1-6) 

(contains ENGINEERING shears) 

stress rate 

(7-12) 


inelastic 
strain rate 

(13-18) 

(contains ENGINEERING shears) 

12 "slots" 

for state variables 

(19-30) 


thermal strain rate 

(31-36) 





c 

on entry: 

c 

SA 

c 

PE (NE) 

c 


c 

PV (NV) 

c 


c 

D ( 3 ) 

c 

LOCTISO 

c 


c 


c 



- vector of total (integrated) quantities (see above) 

- vector of elastic constants for material MN 
(where NE = # of elastic constants --> 9 MAX) 

- vector of viscoplastic constants for material MN 
(where NV = # of viscoplastic constants --> 19 MAX) 

- vector of direction cosines (for models 3, 7 , & 9) 

- flag indicating if ANY material exhibits local 
transverse isotropy (and global anisotropy) 

= 0 - all materials are at most globally transversely 
isotropic (D not used) 
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c 



c 



c 

TIME 

- 

c 

TSTEP 

- 

c 

CTEMP 

- 

c 

DTEMPR 

- 

c 

NIO 

- 

c 

NE 

- 

c 

NV 

- 

c 

NS 

- 

c 

MN 

- 

c 

CDUM 

- 

c 



c 

DMGF 

- 

c 



c 



c 



c 

expected on 

exit 

c 

DSA 

- 


1 - at least one material is locally transversely 
isotropic (D used) 
current time 
current time step 
current temperature 

time rate of change of temperature 
unit number of .out file 

# of elastic constants --> 9 MAX 

# of viscoplastic constants --> 19 MAX 
subcell number 

material number 

material character /number designation 
(i.e. FI = fiber #1) 

damage factor - if damage is included the user 
should multiply material stiffness terms by DMGF 
when using such terms in his inelastic model. 


vector of rate quantities (see above) 




IF ( NE .GT. NEP ) THEN 
CALL FATALERROR ( NIO ) 

WRITE (NIO, *) 'TO MANY ELASTIC PROPERTIES FOR MATERIAL # ' , MN 
WRITE (NIO, *) ' # USED = ' , NE 

WRITE (NIO, *) ' # ALLOCATED = NEP 

STOP 
ENDIF 

IF ( NV .GT. NVP ) THEN 
CALL FATALERROR (NIO) 

WRITE (NIO , *) 'TO MANY NON-LINEAR PROPERTIES FOR MATERIAL # ' , 
Sc MN 

WRITE (NIO , *) ' # USED = ' , NV 

WRITE (NIO, *) ' # ALLOCATED = ' , NVP 

STOP 
ENDIF 


* BEGIN USER EDITS * 

C WRITE ( 6 , * ) ' PV= ' , PV 

C WRITE (6, *) ' PE= ' , PE 


c 

c MATERIALS #1 & #2 ARE ELASTIC 
c (set inelastic strain rates to zero) 

c 

IF ( (MN .EQ. 1) .OR. (MN .EQ. 2)) THEN 
DSA ( 13 ) = 0 
DSA ( 14 ) = 0 
DSA ( 15 ) = 0 
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DSA ( 16 ) = 0 
DSA ( 17 ) = 0 
DSA (18) = 0 
RETURN 
END IF 


c 

C MATERIAL #3 --> USE BODNER- PARTOM 




c 

c copy appropriate viscoplastic material constants 
c 


IF ( NV .LT. 6 ) THEN 
CALL FATALERROR ( NIO ) 

WRITE (NIO, *) ' NOT ENOUGH PV SPACE: NV = ' , NV 

STOP 
END IF 
DO = PV(1) 

ZO = PV ( 2 ) 

Z1 = PV ( 3 ) 

BM = PV ( 4 ) 

AN = PV ( 5 ) 

Q = PV ( 6 ) 

c 

c copy stress from [sa] to [ss] 


SS(1) = SA ( 7 ) 
SS ( 2 ) = SA ( 8 ) 
SS ( 3 ) = SA ( 9 ) 
SS ( 4 ) = SA{10) 
SS ( 5 ) = S A (11) 

SS ( 6 ) = SA ( 12 ) 


c compute the deviatoric stress [s] in the subcell 


TEMP = (SS(1) + SS ( 2 ) + SS ( 3 ) ) / 3.0 

S(l) = SS(1) - TEMP 
S (2 ) = SS (2 ) - TEMP 
S ( 3 ) = SS ( 3 ) - TEMP 

S ( 4 ) = SS { 4 ) 

S ( 5 ) = SS ( 5 ) 

S ( 6 ) = SS ( 6 ) 





AJ2 = 0.5 * (S ( 1) **2 + S ( 2 ) * *2 + S(3)**2) + S(4)**2 + S(5)**2 + 
& S ( 6 ) * *2 

SQ3AJ = DSQRT ( SS(1)**2 + SS(2)**2 + SS(3)**2 + 2 * (SS(4)**2 + 

& SS ( 5 ) * *2 + SS ( 6 ) * *2 ) ) 

SQ2 = 1.414215 
IF (SQ3AJ .EQ. 0.0) THEN 
CALL ZERORfR, 6) 

ELSE 
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R ( 1 ) = SS(1) / SQ3AJ 
R ( 2 ) = SS { 2 ) / SQ3AJ 
R(3) = SS ( 3 ) / SQ3AJ 

R ( 4 ) = SQ2 * SS ( 4 ) / SQ3AJ 

R ( 5 ) = SQ2 * SS ( 5 ) / SQ3AJ 

R(6) = SQ2 * SS ( 6 ) / SQ3AJ 

END IF 



c if d0=0 then assume elastic and zero-out 
c [dsa(13-30)] (inelastic strain rate and 
c internal variable rates), then return 

c 

IF (DO .EQ. 0) THEN 
DO 100 JJ = 13, 30 
DSA(JJ) = 0.0 
100 CONTINUE 
RETURN 

c 

c inelastic 

c 

ELSE 

ZEF = Z0 + Q * S A (20) + (1 - Q) * (R(l) * SA(21) + R(2) * 

& S A (22) + R ( 3 ) * SA (23) + R (4 ) * SA(24) + R(5) 

& * SA ( 25 ) + R ( 6 ) * SA(26) ) 

IF ( AJ2 .EQ. 0.0) THEN 
AL = 0.0 
ELSE 

ARG1 = ZEF**2 . 0 / (3.0 * AJ2 ) 

IF ( ARG1 .GT. 1E6 ) ARG1 = 1E6 
CON = .5 * (AN +1.0) /AN 
ARG = CON * (ARG1) **AN 

IF (ARG .GT. 50.0) ARG = 50.0 
AL = DO / (DEXP(ARG) * DSQRT ( AJ2 ) ) 

END IF 



c inelastic strain rates 



DSA ( 13 ) = AL * S(l) 

DSA ( 14 ) = AL * S (2 ) 

DSA (15) = AL * S ( 3 ) 

DSA (16) = 2 * AL * S ( 4 ) 

DSA (17) = 2 * AL * S ( 5 ) 

DSA (18) = 2 * AL * S ( 6 ) 

c 

c plastic work rate 

c 

WPD = S(l) * DSA ( 13 ) + S ( 2 } * DSA(14) + S(3) * DSA(15) + S(4) * 
Sc DSA ( 16 ) + S ( 5 ) * DSA ( 17 ) + S(6) * DSA(18) 



c state variable rates 
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DSA ( 19 ) = WPD 

ZOM = BM / ZO 

ZD = ZOM * (Z1 - ZEF) * WPD 

DSA ( 20 ) = ZD 


DSA (21) 
DSA (22) 
DSA (23) 
DSA (24) 
DSA (25) 
DSA (26) 
END IF 


= ZD * R ( 1 ) 
= ZD * R ( 2 ) 
= ZD * R ( 3 ) 
= ZD * R ( 4 ) 
= ZD * R ( 5 ) 
= ZD * R ( 6 ) 


************************************************************************ 
* END USER EDITS * 

************************************************************************ 


RETURN 

END 


The USRFUN subroutine 

The USRFUN subroutine is used here to allow material properties to be entered in 
functional form instead of having to be linearly interpolated within MAC/GMC 

c ######### ############################################################## 
SUBROUTINE USRFUN (MN, TIME , TSTEP, CTEMP , DTEMPR, SA, DSA , 

Sc DOLD, PEM, PVM, D, LOCTISO, ALPA, ALPT, 

& NE, NV, NMTS , NEP, NVP, NSASIZE) 

user subroutine to allow elastic and viscoplastic 
material properties to be functions of TEMP or 
field variables. Used for user defined functional 
form material properties, that is, when: 

(mat .eq. 'U' ) .and. (ifm .eq. 2) 

can be used in conjunction with a provided material 
constitutive model, or a constitutive model input 
by the user in USRMAT 

IMPLICIT DOUBLE PRECISION (A - H, O - Z) 

DIMENSION DOLD { 6 , 6 ) , D ( 3 ) 

DIMENSION PEM (NEP , NMTS), PVM(NVP, NMTS) 

DIMENSION ALPA (NMTS ) , ALPT (NMTS ) 

DIMENSION DSA (NSASIZE) , SA(NSASIZE) 


c purpose: 

c 

c 

c 

c 

c 

c note: 

c 

c 
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**★ + *★★★★*★★*★**★****★*★*★★★★★*★★*★**★*★*******★★**■***★*■*■★★★★★★★■*■★***■*■** 
c note: 1) in this subroutine, [SA] and [DSA] contain the 

micro (subcell) quantities for aboudi ' s micromechanics model 


2) arrangement of [dsa] & [sa] arrays: 


variable 


location 


c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

★★★★★♦★★★★★★★★★★★★★a**************************************************** 
c NOTE: quantities in [SA] and [DSA] are SUBCELL quantities - the 

c values on entry are for the first subcell containing material 

c # MN - the values on exit of this subroutine will be applied to 

c ALL SUBCELLS containing material # MN. It is thus recommended 

c that, if using the field variables, you assign the appropriate 

c material # to ONE SUBCELL ONLY. Use of [SA] and [DSA] in this 

c context in conjunction with bending in laminate theory will 

c result in erroneous results as field variables become dependent 

c on through- thickness position (while the material # does not). 

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★it 


strain rate 

(1-6) 

(contains ENGINEERING shears) 

stress rate 

(7-12) 


inelastic 
strain rate 

(13-18) 

(contains ENGINEERING shears) 

12 "slots 1 ' 

for state variables 

(19-30) 


thermal strain rate 

(31-36) 



c 

on entry: 




c 

MN 


- 

material number 

c 

TIME 


- 

current time 

c 

TSTEP 


- 

current time step 

c 

CTEMP 


- 

current temperature 

c 

DTEMPR 


- 

time rate of change of temperature 

c 

SA 


- 

vector of total (integrated) quantities (see above) 

c 

DSA 


- 

vector of rate quantities (see above) 

c 

DOLD ( 6 , 

6) 

- 

previous elastic material stiffness matrix 

c 

PEM (NE , 

MN) 

- 

vector of previous elastic constants for material 

c 




# MN (where NE = # of elastic constants --> 9 MAX) 

c 

PVM (NV, 

MN) 

- 

vector of previous viscoplastic constants for 

c 




material # MN 

c 




(where NV = # of viscoplastic constants --> 19 MAX) 

c 

c 

expected on exit 


c 

PEM (NE, 

MN) 

- 

vector of current elastic constants for material MN 

c 

PVM (NV, 

MN) 

- 

vector of current viscoplastic constants for 

c 




material MN 

c 

D(3) 


- 

vector of direction cosines 

c 




(required for models 3, 7, & 9) 

c 

LOCTISO 



flag indicating if ANY material exhibits local 

c 




transverse isotropy (and global anisotropy) 

c 



= 

0 - all materials are at most globally transversely 
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c 


c 


c 


c 

ALPA (MN) 

c 

ALPT (MN) 

c 

NE 

c 

NV 

c 



isotropic (D not used) 

= 1 - at least one material is locally transversely 
isotropic (D used) 

- longitudinal cte for material MN 

- transverse cte for material MN 

- NUMBER OF ELASTIC PROPERTIES USED 

- NUMBER OF VISCOPLASTIC PROPERTIES USED 


★ ★★★★★it***************************************************************** 




C WRITE (6, 


********************************************************* 
BEGIN USER EDITS * 

*) 'TOP OF USRFUN ' 


c 

c MATERIAL #1: E = FUNCTION OF STRAIN & PREVIOUS E 

c FOR USE WITH USER CONSTITUTIVE MODEL 

c 

IF (MN .EQ. 1) THEN 


. GT . 0 ) THEN 
= PEM ( 1 , MN) 

= 700. E9 - EAOLD 

= 700. E9 


IF ( SA ( 1 ) 
EAOLD 
EA 

ELSE 
EA 
END IF 

ET = EA 
FNA = 0.41 
FNT = 0.41 
GA = EA / 
ALPA (MN) = 
ALPT (MN) = 

NE = 5 
PEM ( 1 , MN) 
PEM (2, MN) 
PEM ( 3 , MN) 
PEM (4, MN) 
PEM ( 5 , MN) 


( 2.0 * ( 1.0 
4.5E-6 
4.5E-6 


= EA 
= ET 
= FNA 
= FNT 
= GA 


* SA ( 1 ) 


+ FNA) ) 


80.0 


MATERIAL 

# 2: 

PROPERTIES = INTERPOLATED AT INPUT TEMPERATURES 
THIS SUBROUTINE IS NOT CALLED FOR MN #2 SINCE THE 
MATERIAL PROPERTIES ARE NOT FUNCTIONAL FORM 


MATERIAL 

# 3: 

PROPERTIES = LINEAR FUNCTION OF TEMPERATURE 
FOR USE WITH USER CONSTITUTIVE MODEL 
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ELSEIF (MN .EQ. 3) THEN 

IF (CTEMP .LT. 21.0) CTEMP = 21.0 
IF (CTEMP .GT. 400.) CTEMP = 400. 

C -- ELASTIC 

E = 72.4E9 - 81.53E6 * (CTEMP - 21. 


FN = 0 

.33 

+ 7.916E-5 * 

(CTEMP - 21. 

ALP = 

22.5E-6 + 3.958E- 

-9 * (CTEMP - 

NE = 5 




PEM ( 1 , 

MN) 

= E 


PEM ( 2 , 

MN) 

= E 


PEM ( 3 , 

MN) 

= FN 


PEM ( 4 , 

MN) 

= FN 


PEM ( 5 , 

MN) 

= E / {2. * 

(1. + FN) ) 

ALPA (MN) = 

ALP 


ALPT (MN) = 

ALP 



C — VISCOPLASTIC 
DO = 1.E4 
Z0 = 340. E6 
Z1 = 435. E6 
BM = 300.0 

AN = 10.0 - 0.02493 * (CTEMP - 21.) 
Q =1.0 


NV 

= 6 



PVM 

(1, 

MN) 

= DO 

PVM 

(2, 

MN) 

= ZO 

PVM 

(3, 

MN) 

= Z1 

PVM 

(4, 

MN) 

= BM 

PVM 

(5, 

MN) 

= AN 

PVM 

(6, 

MN) 

= Q 


END IF 

* END USER EDITS 

******************************************** 


RETURN 

END 


) 

) 

21 . ) 


**************************** 

* 
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The USRFORMDE subroutine 


The USRFORMDE subroutine is used here to form the elastic material stiffness matrix 
in MAC/GMC when a user defined constitutive model is used. 

c####################################################################### 
SUBROUTINE USRFORMDE (MN, PEM, PVM, D, LOCTISO, DNEW, 

& NE, NV, NEP, NVP , NMTS) 


c purpose: user subroutine to allow formation of material stiffness 

c matrices based on a user constitutive model, which may use 

c arbitrary material properties (used when ncmd = 99) 

c 


IMPLICIT DOUBLE PRECISION (A - H, O - Z) 


DIMENSION DNEW ( 6 , 6) 

DIMENSION PEM (NEP, NMTS), PVM(NVP, NMTS) 
DIMENSION D ( 3 ) 




c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


on entry: 

MN 

PEM (NE, MN) 
PVM (NV, MN) 
0(3) 

LOCTISO 


- material number 

- vector of elastic constants for material 

# MN (where NE = # of elastic constants --> 9 MAX) 

- vector of viscoplastic constants for material # MN 

(where NV = # of viscoplastic constants 19 MAX) 

- vector of direction cosines 
(required for models 3, 7, & 9) 

- flag indicating if ANY material exhibits local 
transverse isotropy (and global anisotropy) 

= 0 - all materials are at most globally transversely 
isotropic (D not used) 

= 1 - at least one material is locally transversely 
isotropic (D used) 


expected on exit: 

DNEW(6, 6) - current elastic material stiffness matrix 


***********+*******-****+************************************************ 
* BEGIN USER EDITS * 

Tit*******************************************************:**************** 

C WRITE (6, *) 'TOP OF USRFORMDE 9 

NOTE: In the examples shown here, standard engineering material 

elastic constants (E, nu) are used. However, the user is 
free to employ any material elastic constants with his 
constitutive model (i.e., bulk modulus, etc.). Thus, the 
user must provide the equations to determine the stiffness 
components required by GMC from his elastic constants. 


c 

c MATERIAL #1: E = FUNCTION OF STRAIN & PREVIOUS E 
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c 

c- 


FOR USE WITH USER CONSTITUTIVE MODEL 

IF (MN .EQ. 1) THEN 

EA = PEM ( 1 , MN) 

ET = PEM (2, MN) 

FNA = PEM ( 3 , MN) 

FNT = PEM (4, MN) 

GA = PEM ( 5 , MN) 


100 


DO 100 I = 1, 6 
DO 100 J = 1, 6 
DNEW(I, J) = 0 


CONTINUE 





GT = 0. 

5 * 

ET 

' / (1 + FNT) 

FK = 0. 

25 

* EA / (0.5 

* 

(1 - 

DNEW ( 1 , 

1) 

= 

EA + 4.0 

* 

FK 1 

DNEW ( 2 , 

1) 

= 

2.0 * FK 

★ 

FNA 

DNEW ( 3 , 

1) 

= 

2.0 * FK 

* 

FNA 

DNEW ( 1 , 

2) 

= 

2.0 * FK 

* 

FNA 

DNEW ( 2 , 

2) 

= 

FK + GT 



DNEW ( 3 , 

2) 

= 

FK - GT 



DNEW ( 1 , 

3) 

= 

2.0 * FK 

* 

FNA 

DNEW ( 2 , 

3) 

= 

FK - GT 



DNEW ( 3 , 

3) 

= 

FK + GT 



DNEW ( 4 , 

4) 

= 

GT 



DNEW ( 5 , 

5) 

= 

GA 



DNEW ( 6 , 

6) 

= 

GA 




FNT) 


FNA' 


(EA / ET) - FNA* *2 ) 




c MATERIAL # 2 : PROPERTIES = INTERPOLATED AT TEMPERATURES 

c FOR USE WITH USER CONSTITUTIVE MODEL 

c 

ELSEIF (MN .EQ. 2) THEN 

E = PEM ( 1 , MN) 

FN = PEM (2, MN) 

GA = E / (2. * (1. + FN) ) 

DO 320 I = 1, 6 
DO 320 J = 1, 6 
DNEW(I, J) = 0 
320 CONTINUE 

GT = 0.5 * E / (1 + FN) 

FK = 0.25 * E / (0.5 * (1 - FN) - FN**2) 

DNEW(1, 1) = E + 4.0 * FK * FN**2 

DNEW ( 2 , 1) =2.0 * FK * FN 


150 



MAC/GMO. M icromechanics A nalysis C ode 


DNEW ( 3 , 

1) 

= 

2.0 

* FK * 

FN 

DNEW ( 1 , 

2) 

= 

2.0 

* FK * 

FN 

DNEW ( 2 , 

2) 

= 

FK + 

GT 


DNEW ( 3 , 

2) 

= 

FK - 

GT 


DNEW ( 1 , 

3) 

= 

2.0 

* FK * 

FN 

DNEW ( 2 , 

3) 

= 

FK - 

GT 


DNEW { 3 , 

3) 

= 

FK + 

GT 


DNEW ( 4 , 

4) 

= 

GT 



DNEW ( 5 , 

5) 

= 

GA 



DNEW ( 6 , 

6) 

= 

GA 




C MATERIAL # 3 : PROPERTIES = LINEAR FUNCTION OF TEMPERATURE 

c FOR USE WITH USER CONSTITUTIVE MODEL 

c 

ELSEIF (MN .EQ. 3) THEN 


300 


E = 

= PEM ( 1 , 

MN) 

FN 

= PEM (3, 

, MN) 

GA 

= PEM (5, 

, MN) 

DO 

300 I = 

1, 6 


DO 300 J = 1, 6 
DNEW ( I , J) = 0 


CONTINUE 



GT = 

0 . 

5 * 

E 

/ (1 + FN) 

FK = 

0 . 

25 

* 

E / {0.5 * {1 - 

DNEW ( 

1 , 

1) 

= 

E + 4.0 * FK 

DNEW ( 

2, 

1) 

= 

2.0 * FK * FN 

DNEW { 

3, 

1) 

= 

2.0 * FK * FN 

DNEW ( 

1, 

2) 

= 

2 . 0 * FK * FN 

DNEW ( 

2, 

2) 

= 

FK + GT 

DNEW ( 

3, 

2) 

= 

FK - GT 

DNEW ( 

1 , 

3) 

= 

2.0 * FK * FN 

DNEW ( 

2, 

3) 

= 

FK - GT 

DNEW ( 

3, 

3) 

= 

FK + GT 

DNEW ( 

4, 

4) 

= 

GT 

DNEW ( 

5, 

5) 

= 

GA 

DNEW ( 

6, 

6) 

= 

GA 


FN* 


END IF 

************************************************************************ 
* END USER EDITS * 

RETURN 

END 
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The USRCPEVAL subroutine 

The USRCPEVAL subroutine is used here to form the time derivative of the material 
stiffness matrix in MAC/GMC 

C####################################################################### 

SUBROUTINE USRCPEVAL ( DSA , SA, MN, TIME, TSTEP, CTEMP, DTEMPR, 

& DNEW, DOLD, PEM, PVM, D, LOCTISO, ALPA, ALPT, DDOT , 

& NE, NV, NMTS, NEP, NVP, NSASIZE) 

c purpose: user subroutine to allow formation of the TIME 

c derivative of the material stiffness matrix, 

c this subroutine is used when: 

c a) material properties are user defined and functional 

c form. That is: (mat .eq. 'U') .and. (ifm ,eq. 2) 

c b) the constitutive model is user-defined, and the 

c material properties are not functional form, and 

c the material properties are temperature-dependent 

c that is: (ncmd .eq. 99) .and. (ifm ,ne. 2) .and. 

c (ndpt .eq. 2) 

IMPLICIT DOUBLE PRECISION (A - H, O - Z) 


DIMENSION DNEW (6, 6), DOLD (6, 6) 

DIMENSION DDOT (6, 6) 

DIMENSION PEM (NEP, NMTS), PVM(NVP, NMTS) 
DIMENSION ALPA (NMTS) , ALPT (NMTS) 
DIMENSION DSA (NSASIZE) , SA(NSASIZE) 


★ ******* + ************************************************************** 


★ 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


note: 1) in this subroutine, [SA] and [DSA] contain the 

micro (subcell) quantities for aboudi ' s micromechanics model 

2) arrangement of [dsa] & [sa] arrays: 
variable location 


strain rate 

(1-6) 

(contains ENGINEERING shears) 

stress rate 

(7-12) 


inelastic 
strain rate 

(13-18) 

(contains ENGINEERING shears) 

12 "slots' 

for state variables 

(19-30) 


thermal strain rate 

(31-36) 





*★★★**★■*■**★*★* + ********■***'*** + 


c on entry: 
c SA 


- vector of total (integrated) quantities (see above) 
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c 

DSA 

- 

vector of rate quantities (see above) 

c 

MN 

- 

material number 

c 

TIME 

- 

current time 

c 

TSTEP 

- 

current time step 

c 

CTEMP 


current temperature 

c 

DTEMPR 

- 

time rate of change of temperature 

c 

DNEW ( 6 , 6 ) 

- 

current elastic material stiffness matrix 

c 

DOLD ( 6 , 6 ) 

- 

previous elastic material stiffness matrix 

c 

PEM(NE, MN) 

- 

vector of current elastic constants for material MN 

c 



(where NE = # of elastic constants --> 9 MAX) 

c 

PVM (NV, MN) 

- 

vector of current viscoplastic constants for 

c 



material MN 

c 



(where NV = # of elastic constants — > 19 MAX) 

c 

D ( 3 ) 

- 

vector of direction cosines 

c 



(required for models 3, 7, & 9) local 

c 

LOCTISO 

- 

flag indicating if ANY material exhibits 

c 



transverse isotropy (and global anisotropy) 

c 


= 

0 - all materials are at most globally transversely 

c 



isotropic (D not used) 

c 


= 

1 - at least one material is locally transversely 

c 



isotropic (D used) 

c 

ALPA (MN) 


longitudinal cte for material MN 

c 

ALPT (MN) 

- 

transverse cte for material MN 

c 

c 

expected on exit 

derivative with respect to TIME of stiffness matrix 

c 

DDOT ( 6 , 6 ) 

- 

******************** 

**************************************************** 


************************************************************************ 
* BEGIN USER EDITS * 

************************************************************************ 


DIMENSION DHOLD { 6 , 6, 3), DNEW1(6, 6), PEMl(9, 10), PVM1(19, 10) 
DIMENSION ALPA1 (10) , ALPTl(lO) 

C WRITE ( 6 , *) 'TOP OF USRCPEVAL' 




C MATERIAL #1: E = FUNCTION OF STRAIN & PREVIOUS E 

C FOR USE WITH USER CONSTITUTIVE MODEL 



IF (MN .EQ. 1) THEN 

c method one - simply divide change in stiffness components by TSTEP 

DO 200 I = 1, 6 
DO 200 J = 1, 6 

DDOT ( I , J) = (DNEW(I, J) - DOLD(I, J) ) / TSTEP 

200 CONTINUE 


c 

c MATERIAL # 2 : 

c 


PROPERTIES = INTERPOLATED AT TEMPERATURES 
FOR USE WITH USER CONSTITUTIVE MODEL 
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ELSEIF (MN .EQ. 2) THEN 

c method 2 - if material props are only function of temperature, 

c calculate stiffness at CTEMP - 0.5 & CTEMP + 0.5, difference 

c equals change per temp, multiply by DTEMPR equals change per time 

IF (CTEMP .LT. 21.0) CTEMP = 21.0 
IF (CTEMP .GT. 400.) CTEMP = 400. 

DO 300 I = 1, 6 
DO 300 J = 1, 6 
DO 300 K = 1, 2 

DHOLD ( I , J, K) = 0 

300 CONTINUE 

DO 420 K = 1, 2 

IF (K .EQ. 1) CTEMP1 = CTEMP - 0.5 
IF (K .EQ. 2) CTEMPl = CTEMP + 0.5 


c this subroutine interpolates properties for material MN at 

c the temperature CTEMPl 

CALL INTTMP (MN, CTEMPl, PEM1, ALPA1, ALPT1 , PVM1 ) 

c calculate the stiffness components 

CALL USRFORMDE (MN, PEM1 , PVM, D, LOCTISO, DNEW1 , 

& NE, NV, NEP, NVP , NMTS) 

c note: for internal constitutive models (ncmd .ne. 99), use 

c subroutine FORMDE to calculate stiffness components. 

c syntax: CALL FORMDE (MN, PEM1, D) 

DO 480 I = 1, 6 
DO 480 J = 1, 6 

DHOLD (I, J, K) = DNEW1 ( I , J) 

480 CONTINUE 

420 CONTINUE 

DO 520 I = 1, 6 
DO 520 J = 1, 6 

DDOT ( I , J) = ( DHOLD ( I , J, 2) - DHOLD ( I , J, 1)) * DTEMPR 

520 CONTINUE 

c 

C MATERIAL # 3: PROPERTIES = LINEAR FUNCTION OF TEMPERATURE 

C FOR USE WITH USER CONSTITUTIVE MODEL 

C 

ELSEIF (MN .EQ. 3) THEN 

c method 2 - if material props are only function of temperature, 

c calculate stiffness at CTEMP - 0.5 & CTEMP + 0.5, difference 

c equals change per temp, multiply by DTEMPR equals change per time 

IF (CTEMP .LT. 21.0) CTEMP =21.0 
IF (CTEMP .GT. 400.) CTEMP = 400. 
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DO 330 I = 1, 6 
DO 330 J = 1, 6 
DO 330 K = 1, 2 

DHOLD { I , J, K) = 0 

330 CONTINUE 


DO 400 K = 1, 2 

IF (K .EQ. 1) CTEMP1 = CTEMP - 0.5 
IF (K .EQ. 2) CTEMP 1 = CTEMP + 0.5 


c determine material props at the appropriate temperature 

CALL USRFUN (MN, TIME, TSTEP, CTEMPl , DTEMPR, SA, DSA 
& DOLD, PEM1 , PVM1, D, LOCTISO, ALPA1 , ALPTl , 

Sc NE, NV, NMTS , NEP, NVP, NSASIZE) 


c calculate the stiffness components 

CALL USRFORMDE (MN, PEM1 , PVM, D, LOCTISO, DNEWl , 

& NE, NV, NEP, NVP, NMTS) 

c note: for internal constitutive models (ncmd .ne. 99), use 

c subroutine FORMDE to calculate stiffness components. 

c syntax: CALL FORMDE (MN, PEM1, D) 

DO 450 I = 1, 6 
DO 450 J = 1, 6 

DHOLD (I, J, K) = DNEWl (I, J) 

450 CONTINUE 

400 CONTINUE 

DO 500 I = 1, 6 
DO 500 J = 1, 6 

DDOT ( I , J ) = ( DHOLD ( I , J , 2 ) - DHOLD ( I , J , 1 ) ) * 
500 CONTINUE 


END IF 

**************************************************************** 

* END USER EDITS 

★ ★★★★★★★★★★★★★★★★★★★★■A-****************************************** 

RETURN 
END 


DTEMPR 


******** 

* 

******** 
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6.12 Example L: Fatigue Damage Analysis 

Sample Input File For A Fatigue Damage Analysis 

The following example is used to explain how to conduct fatigue damage analysis 
within MAC/GMC. 


Problem Summary : 

Load Type: 

Load History: 

Load Control: 

Load Component: 

Load History Data: 

AD = 0.15 

Micromechanics model: 
Fiber Packing Arrangement: 
Integration Algorithm: 
Constituent Material Model: 
Constituents: 


Mechanical 

Cyclic 

Stress 

1 1 - direction (in the fiber direction) 
a,, = 115. ksi, a., = 128. ksi/sec, 

max 11 

^constant = ^97 sec 
Double Periodic 

Square Pack at 35% fiber volume ratio 
Forward Euler 

Elastic (fiber) and Bodner-Partom (matrix) 

Fiber: SCS-6 (input manually) 

Matrix: Ti - 15 - 3 (at 800°F, input manually) 


•s- Note: A similar example problem is described in more detail in: 

Wilt, T.E., Arnold, S. M., and Saleeb, A.F.: A Coupled/Uncoupled Com- 
putational Scheme for Deformation and Fatigue Damage Analysis of 
Unidirectional Metal Matrix Composites, Applications of Continuum 
Damage Mechanics to Fatigue and Fracture. ASTM STP 1315, D.L. 
McDowell, Ed., American Society for Testing and Materials, pp. 65-82, 
1997. 

The purpose here is to demonstrate how to use the ‘DAMAGE option. 
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Longitudinal fatigue analysis of square packed SCS6/TM5-3 system 
‘PRINT 
NPL=0% 

‘LOAD 

LCON=2 LOP=1 LSS=2 % 

*MECH 

NPTW=3 Tl=0., 0.89844, 1.79688 LO=0.,1 15., 0. % 

‘MODEL 
MOD=1 % 

‘DAMAGE 

NCY=12 D=0.15 DMAX=1.0 FG=0 FL=1% 

‘SOLVER 

NTF=1 NPTS=3 TIM=0., 0.89844, 1.79688 STP=0.01 797,0.01 797 % 
‘FIBER 
NFIBS=1 

NF=1 MF=6 NDPT=1 MAT=U IFM=1 & 

EL=58.E3,58.E3, 0.25, 0.25, 23.2E3,3.5E-6,3.5E-6 

ANG=1. BN=2. BP=4. OMU=1. OMFL=1. OMM=1. ETU=1. & 

ETFL=1 . ETM=1 . BE=1. A=1. SFL=1 . XML=1 . & 

SU=1. SK=1 

# Note sk=1 means skip fatigue damage for fiber, so damage properties are 

# meaningless - but failure criteria is still applicable. 

T=1 IC=1 V=320. % 

‘MATRIX 

NMATX=1 

NM=1 MM=1 NDPT=1 MAT=U IFM=1 & 

EL=1 2770., 1 2770., 0.32, 0.32, 4837.1 2,21 .06E-6.21 .06E-6 & 
Vl=1000.,120.,120.,10.,3.,1 . 

ANG=0. BN=0. BP=0. OMU=1. OMFL=1. OMM=1. ETU=1. & 

ETFL=1. ETM=1 . BE=2.27 A=0.2302 SFL=20.3 XML=900. & 

SU=128. SK=0 
T=2 IC=1 V=0.01 % 

*MRVE 

IDP=1 VF=0.35 % 

‘CURVE 
NP=1 % 

‘MACRO 

NT=1 

NC=1 X=1 Y=7 NAM=apdxl % 

‘END 
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The following results is contained in the output file: dam2.data 

Calculated Cycles To Failure At Increment 100 Applied Load Cycle 1 

Subcell # Nf 

1 0 . 100000E+10 

2 0 . 613603E+05 

3 0 . 613 603E+05 

4 0 . 664385E+05 

* + ****★★*★★* + ★★ + ★*****★★★* + ★****■*■**★*★★** 

★ ★★★★★★★★★it****************************** 

***** CONTROLLING SUBCELL 2 ***** 

NF => 60494.2250830768 

NF => 60494.0000000000 

★ *★*** **** ★★**★■*■*■★★****★★★★****★ + ** + *★★* + ★★★★ 

**** CURRENT TOTAL # CYCLES = 60494.0000000000 

*** AFTER APPLIED LOAD CYCLE 1 

★ **★★ + ***★★*★★★★★+★ + +***★**•**★ + ■*■★*★**★*** 

Calculated Cycles To Failure At Increment 200 Applied Load Cycle 2 

Subcell # Nf 

1 0 . 100000E+10 

2 0 . 11673 6E+04 

3 0 . 11673 6E+04 

4 0 . 545641E+04 

***** CONTROLLING SUBCELL 2 ***** 

NF => 674.890587838351 

NF => 674.000000000000 

***************************************** 

**** CURRENT TOTAL # CYCLES = 61168.0000000000 

*** AFTER APPLIED LOAD CYCLE 2 

*** + *+ ★* + ****★*★*****★**** + * + + **★**★★**★★ 

Calculated Cycles To Failure At Increment 300 Applied Load Cycle 3 

Subcell # Nf 

1 0 . 100000E+10 

2 0 . 709630E+03 

3 0 . 709630E+03 

4 0 . 438086E+04 

★ ★■*•* + ****★ + *★*★★★★★★★★★★★★*★**★***★★★*★★★ 

***** CONTROLLING SUBCELL 2 ***** 

NF => 419.320819753184 

NF => 419.000000000000 

*******★**★***********+*★★★★★★★★★★★*★★★*★ 

**** CURRENT TOTAL # CYCLES = 61587.0000000000 
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*** AFTER APPLIED LOAD CYCLE 3 

***************************************** 

* **************************************** 

Calculated Cycles To Failure At Increment 400 Applied Load Cycle 4 

Subcell # Nf 

1 0 . 100000E+10 

2 0 . 463247E+03 

3 0 . 463247E+03 

4 0 . 361975E+04 

***************************************** 

***************************************** 

★a*************************************** 

***** CONTROLLING SUBCELL 3 ***** 

NF => 307.516313605484 

NF => 307.000000000000 

***************************************** 
***************************************** 

**** CURRENT TOTAL # CYCLES = 61894.0000000000 

*** AFTER APPLIED LOAD CYCLE 4 

***************************************** 
***************************************** 

Calculated Cycles To Failure At Increment 500 Applied Load Cycle E 

Subcell # Nf 

1 0 . 100000E+10 

2 0 . 295356E+03 

3 0 . 295356E+03 

4 0 . 301874E+04 

★ a-*************************************** 
***************************************** 
***************************************** 

***** CONTROLLING SUBCELL 2 ***** 

NF => 232.831665300220 

NF => 232.000000000000 

***************************************** 
***************************************** 

**** CURRENT TOTAL # CYCLES = 62126.0000000000 

*** AFTER APPLIED LOAD CYCLE 5 

***************************************** 
***************************************** 

Calculated Cycles To Failure At Increment 600 Applied Load Cycle 

Subcell # Nf 

1 0 . 100000E+10 

2 0 . 166907E+03 

3 0 . 166907E+03 

4 0 . 253239E+04 

***************************************** 

***************************************** 

***************************************** 

***** CONTROLLING SUBCELL 2 ***** 

NF => 158.292840626614 

NF => 158.000000000000 
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★ ★★★★★a-********************************** 
+★*+****★**★***++*****★★*****★****★★*★★** 

**** CURRENT TOTAL # CYCLES = 62284.0000000000 

*** AFTER APPLIED LOAD CYCLE 6 

***************************************** 
★★★*★***+*★★★**★★***★★★★**★******★★★*★★★★ 

Calculated Cycles To Failure At Increment 700 Applied Load Cycle 7 

Subcell # Nf 

1 0.100000E+10 

2 0 . 62 0698E+02 

3 0 . 62 0698E+02 

4 0 . 2 14 841E+04 

***************************************** 

★★*★★*★+★*+***★*★★★★★★★**★★★★*★***♦****** 

***** CONTROLLING SUBCELL 3 ***** 

NF => 62.0697834887934 

NF => 62.0000000000000 

★★★★★a*********************************** 

**** CURRENT TOTAL # CYCLES = 62346.0000000000 

*** AFTER APPLIED LOAD CYCLE 7 

* + ***** + ★★*★★★★★★★★★★★★★★★★★★★*★ + ***** + ** 

Calculated Cycles To Failure At Increment 800 Applied Load Cycle 8 

Subcell # Nf 

1 0 . 100000E+10 

2 0 . 73 5691E+01 

3 0 . 735691E+01 

4 0 . 195843E+04 

***************************************** 

*★*****★*****★★★★*★★★★★★*★***+****★****** 

***** CONTROLLING SUBCELL 2 ***** 

NF => 7.35691370876420 

NF => 7.00000000000000 

**** CURRENT TOTAL # CYCLES = 62353.0000000000 

*** AFTER APPLIED LOAD CYCLE 8 

★ ★★★★★★*★★★*★***★*★**********★★★★*★★★★*★★ 

Calculated Cycles To Failure At Increment 900 Applied Load Cycle 9 

Subcell # Nf 

1 0 . 100000E+10 

2 0 . 290197E+01 

3 0 . 29 0197E+01 

4 0 . 194075E+04 

*★*★★■*•★**★★ + ***** + *★■*■★★★★*★★■*■■*■*★■*■★★*★★■*■*★ 
*★**★★*★**★*****■*■****★★★★★★•*★**■ + **★ + ★★★★* 
***************************************** 
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***** CONTROLLING SUBCELL 2 ***** 

NF => 2.90196867892969 

NF => 2.00000000000000 

***************************************** 
***************************************** 

**** CURRENT TOTAL # CYCLES = 62355.0000000000 

*** AFTER APPLIED LOAD CYCLE 9 

***************************************** 
***************************************** 

Calculated Cycles To Failure At Increment *** Applied Load Cycle 10 

Subcell # Nf 

1 0 . 100000E+10 

2 0 . 202802E+01 

3 0 . 202802E+01 

4 0 . 193669E+04 

***************************************** 

***************************************** 

***************************************** 

***** CONTROLLING SUBCELL 2 ***** 

NF => 2.02801986635817 

NF => 2.00000000000000 

***************************************** 
***************************************** 

**** CURRENT TOTAL # CYCLES = 62357.0000000000 

*** AFTER APPLIED LOAD CYCLE 10 

***************************************** 
***************************************** 

Calculated Cycles To Failure At Increment *** Applied Load Cycle 11 

Subcell # Nf 

1 0 . 100000E+10 

2 -0 . 999000E+03 

3 -0 . 99 9 000E+03 

4 0 . 193110E+04 

SUBCELL 2 FAILED . . . SKIPPED 

**** WARNING **** DELN < 1 FOR CELL 2 

SUBCELL 3 FAILED . . . SKIPPED 

**** WARNING **** DELN < 1 FOR CELL 3 

**** WARNING **** DELN < 1 FOR CELL 4 

SORTN : **** STOP **** DELN < 1 

At this point the matrix subcells have all failed and the analysis stops. 
Thus the life of the composite is 62357 cycles. 
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The following results is contained in the output file: dam3.data 


★ ★★★★★★★★■A-****************** 

SUBCELL # 1 

IDAM F 

CYCLES TO FAILURE XNF 
**************************** 

SUBCELL # 2 

IDAM F 

CYCLES TO FAILURE XNF 


1000000000.00000 


61360.2956047440 


61360.2956047440 


***★**★*★★* + ★★**★*★**★*★**•** 
***★**★★■*■*★*★ + *********★***★ 

SUBCELL # 3 

IDAM F 

CYCLES TO FAILURE XNF 
**** + *★*★****★★★★★★★****★*★★ 

*★*★■*■★**★***★******★*★**★★★* 

SUBCELL # 4 

IDAM F 

CYCLES TO FAILURE XNF 
★ ★★★***★★★★★ + ★★★*★*★*★★★★★★★★★********* 


66438.5151084627 


** Current Damage At Increment 100 Applied Load Cycle 
SUBCELL # D 

1 0 . 000000E+00 

2 0 . 149958E+00 

3 0 . 149958E+00 

4 0 . 632021E-03 


1-D 

0 .100000E+01 
0 . 85 0042E+00 
0 . 850042E+00 
0 . 99 93 68E+00 


SUBCELL # 1 

IDAM F 

CYCLES TO FAILURE XNF 

★ ★★ + + ****★*★*★★*★★■*•★★*★***** 
SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF 
**★+********★★★★★+*★*★****** 

+*★**★★★***★+★★★★***★★*★★★★★ 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF 
*★★*★★★★+★★*★********★*****★ 

★*★★★★★********★**★★★***★*** 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 


1000000000.00000 


1167.36343322662 


1167.36343322663 


5456.41016344678 


*************************************** 

** Current Damage At Increment 200 Applied Load Cycle 
SUBCELL # D 1-D 

1 0 . 000000E+00 0 . 100000E+01 

2 0 . 2 9963 8E+00 0.700362E+00 
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3 0 . 299638E+00 0.700362E+00 

4 0 . 141115E-02 0 . 998589E+00 

★ ★it************************* 

SUBCELL # 1 

IDAM T 

CYCLES TO FAILURE XNF 1000000000.00000 

**************************** 
**************************** 

SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF 709.630361973297 

**************************** 
**************************** 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF 709.630361973300 

**************************** 
**************************** 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 4380.85967672225 

**************************** 
*************************************** 

** Current Damage At Increment 300 Applied Load Cycle 
SUBCELL # D 1-D 

1 0 . 000000E+00 0 . 100000E+01 

2 0 . 449466E+00 0.550534E+00 

3 0 . 449466E+00 0.550534E+00 

4 0 . 243012E-02 0.997570E+00 

**************************** 

SUBCELL # 1 

IDAM T 

CYCLES TO FAILURE XNF 1000000000.00000 

**************************** 
**************************** 

SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF 463.247417312908 

**************************** 
**************************** 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF 463.247417312908 

**************************** 
**************************** 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 3619.74747832020 

**************************** 
*************************************** 

** Current Damage At Increment 400 Applied Load Cycle 
SUBCELL # D 1-D 

1 0 . 000000E+00 0 . 100000E+01 

2 0 . 599071E+00 0.400929E+00 
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3 0 . 599071E+00 0.400929E+00 

4 0 . 375666E-02 0.996243E+00 

★ a-************************** 

SUBCELL # 1 

IDAM T 

CYCLES TO FAILURE XNF 1000000000.00000 

★ ********************+****** 

*********★ + ***************** 

SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF 295.355917088531 

****★*****★★**★*★★***★*★**★★ 

**★★★***★★★*****★★****★★**** 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF 295.355917088531 

**************************** 

*★★★■*■*•****★*★★**★★★★★**★**** 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 3018.74014755274 

**************************** 

* + *★***★★★★★★★★★*★★**★★**★*★★★**■******* 

** Current Damage At Increment 500 Applied Load Cycle 5 
SUBCELL # D 1-D 

1 0 . 000000E+00 0 . 100000E+01 

2 0 . 748061E+00 0.251939E+00 

3 0 . 748061E+00 0.251939E+00 

4 0 . 539214E-02 0.994608E+00 

★★****★*★★★★**★★*★*★*★★★***★ 

SUBCELL # 1 

IDAM T 

CYCLES TO FAILURE XNF 1000000000.00000 

***** + *★****★★★★*★**★***★**★ 

**★**+**★★★★★*★*★★*★★★**★★ + + 

SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF 166.907472034450 

■A-**************-************* 

*★+****★★*★★★★*★★*★*★★★*★*** 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF 166.907472034450 

**************************** 

**************************** 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 2532.39380892976 

*★★*+**+****★★★★★★★★★★★*★★★★ 

** Current Damage At Increment 600 Applied Load Cycle 6 
SUBCELL # D 1-D 

1 0 . 000000E+00 0 . 100000E+01 

2 0 . 897013E+00 0.102987E+00 

3 0.897013E+00 0.102987E+00 

4 0 . 707338E-02 0.992927E+00 
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**************************** 

SUBCELL # 1 

IDAM T 

CYCLES TO FAILURE XNF 1000000000.00000 

★ ★★★★★★★★★★★★★★-A-************ 

★ ★★★★★★★★★★★AT*************** 

SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF 62.0697834887973 

**************************** 

**************************** 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF 62.0697834887934 

**★*****★ + *******★★********* 

**************************** 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 2148.40603399676 

★ ★★★★★★★A-******************* 

***************★**★*********★* + ******** 

** Current Damage At Increment 700 Applied Load Cycle 7 
SUBCELL # D 1-D 

1 0 . 000000E+00 0 . 100000E+01 

2 0 . 987089E+00 0.129106E-01 

3 0 . 987089E+00 0.129106E-01 

4 0 . 796197E-02 0.992038E+00 

**************************** 

SUBCELL # 1 

IDAM T 

CYCLES TO FAILURE XNF 1000000000.00000 

*********★★*★★★★**★*★***★★*★ 

★ ★★★■AT*********************** 

SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF 7.35691370876420 

******** + *★★*****★+**★★★-**** 

*********** + ★*★★★**★★★★★★* + * 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF 7.35691370914608 

**************************** 

A*************************** 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 1958.42907053144 

**★★************★★★**★★★★** + 
*************************************** 

** Current Damage At Increment 800 Applied Load Cycle 8 
SUBCELL # D 1-D 

1 0 . 000000E+00 0 . 100000E+01 

2 0.994882E+00 0.511765E-02 

3 0 . 994882E+00 0.511765E-02 

4 0 . 807672E-02 0.991923E+00 
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**************************** 

SUBCELL # 1 

IDAM T 

CYCLES TO FAILURE XNF 1000000000.00000 

**************************** 

**************************** 

SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF 2.90196867892969 

a*************************** 

**************************** 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF 2.90196868203595 

**************************** 

**************************** 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 1940.74760195980 

**************************** 

*************************************** 

** Current Damage At Increment 900 Applied Load Cycle 9 
SUBCELL # D 1-D 

1 0 . 000000E+0 0 0 . 100000E+01 

2 0 . 996420E+00 0.357991E-02 

3 0 . 996420E+00 0.357991E-02 

4 0 . 8110 00E-02 0 . 991890E+00 

**★********★★★****★★*★*★★★★* 

SUBCELL # 1 

IDAM T 

CYCLES TO FAILURE XNF 1000000000.00000 

***********★★★*★★★*★★★***★** 

**************************** 

SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF 2.02801986635817 

**************************** 

****★******★*★*★★★★★★★*★**** 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF 2.02801987334260 

**************************** 

**************************** 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 1936.69355062971 

**************************** 

*************************************** 

** Current Damage At Increment *** Applied Load Cycle 10 
SUBCELL # D 1-D 

1 0 . 000000E+00 0 . 100000E+01 

2 0 . 999034E+00 0.966462E-03 

3 0 . 999034E+00 0.966462E-03 

4 0 . 814345E-02 0.991857E+00 
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**************************** 

SUBCELL # 1 

IDAM T 

CYCLES TO FAILURE XNF 1000000000.00000 
**************************** 
**************************** 

SUBCELL # 2 

IDAM T 

CYCLES TO FAILURE XNF -999.000000000000 
**************************** 
★****★*★*+*★*****★*★*★***★★+ 

SUBCELL # 3 

IDAM T 

CYCLES TO FAILURE XNF -999.000000000000 

*★*★★***★***★*★★*★★*★**★★*★* 

SUBCELL # 4 

IDAM T 

CYCLES TO FAILURE XNF 1931.10439061903 
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6.13 Example M: Longitudinal Discrete Fiber Breakage 


Sample Input 
Problem Summary 

Load Type: 

Load History: 

Load Control: 


File for Longitudinal Discrete Fiber Breakage 

Thermomechanical 

Cyclic 

Strain 


Load Component: 


1 1 -direction (in fiber direction) 


Load History Data: 


Cool-down from 900°Cto23°C, heat-up to 650°C, 
then hold temperature during mechanical load- 
ing 


T =0.01 52 °C/sec, 0.0871 °C/sec 
e=1.0x10' 4 /sec,e m „ =0.012, 
^/,.™«/=500„40.sec.; M mtch =0.4 sec. 


Micromechanics Model: 
Fiber Packing Arrangement: 
Repeating Unit Cell: 
Integration Algorithm: 


Triple Periodicity 

Square Pack, 35% fiber volume ratio 

1x8x14 unit cell with 28 square fibers (input 
manually) 

Forward Euler 


Constituent Material Model: 


Constituents: 


Fiber: 

Elastic, transversely isotropic 

Matrix: 

GVIPS - isotropic form 

Fiber: 

SCS-6 (temp. dep. properties 


input manually) 

Matrix: 

TIMETAL21S 


Fiber Breakage: Second implementation of debond model 

Fiber Breakage Parameters: taken from room temperature SCS-6 fiber 

strength histogram with strengths decreased by 
5.8 % to account for elevated temperature 
effect. 

.3 

A = I.OjcIO -5 ^- , B = 10.- 
kip s 
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es- Note: In the case of longitudinal discrete fiber breakage, each fiber is modeled 
with an internal weak interface oriented normal to the fiber direction 
encompassing the entire fiber cross-section. This interface is then given 
a strength, o DB , which corresponds to the fiber ultimate strength. Thus, 
during simulated loading, when the longitudinal stress in the fiber 
reaches o DB , the fiber’s internal interface debonds, and the longitudinal 

stress in the fiber begins to unload. This simulates a local fiber failure in 
a real composite. 

In order to model longitudinal discrete fiber breakage as realistically as 
possible, a subcell containing 28 fibers has been used. Square-shaped 
fibers have been employed because longitudinal behavior is insensitive 
to fiber shape, and square fibers require the smallest number of sub- 
cells. Strength data for the SCS-6 fiber was taken from a vendor-sup- 
plied histogram. The room-temperature simulated distribution, as well 
as the actual strength distribution are shown in the subsequent figure. 
Note that the strengths employed in the example (in which the tensile 

simulation is performed at 650°C) were reduced by 5.8 % from the 
room-temperature values to account for the effect of the elevated tem- 
perature. In addition, the fiber strengths have been distributed over the 
strength ranges indicated by the histogram, rather than bunched up. 
That is, rather than providing 5 fibers with a strength of 600 ksi, the 
strengths of those 5 fibers were distributed between 575 ksi and 625 ksi 
(prior to the 5.8 % reduction). 

The results of this example shown in the subsequent figure have been 
plotted only to an applied strain level of 0.0096 because at this point the 
slope of the predicted global stress-strain curve becomes negative. We 
are treating this as a criterion for simulated global failure of the compos- 
ite. 
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test of longitudinal discrete fiber breakage 
‘PRINT 
NPL=1 % 

‘LOAD 

LCON=3 LOP=1 LSS=1 % 

*MECH 

NPTW=5 Tl=0., 24000., 57600., 64800., 64920. LO=0.0, 0.0, 0.,0., 0.012 % 
‘THERM 

NPTT=5 Tl=0., 24000., 57600., 64800., 64920. TE=900., 534.583, 23., 650., 650. % 
‘MODEL 
MOD=2 % 

‘SOLVER 

NTF=1 NPTS=5 TIM=0., 24000., 57600., 64800., 64920. STP=500.,40.,40.,0.4 % 
‘FIBER 
NFIBS=1 

NF=1 MF=6 NDPT=2 MAT=U IFM=1 
NTP=6 

TEM=21 .1 ,204.44,31 5.56,426.67,537.78,871 .1 1 
EA=57.0E3,55.98E3,55.4E3,54.82E3,54.24E3,53.36E3 
ET=57.0E3,55.98E3,55.4E3,54.82E3,54.24E3,53.36E3 
NUA=0.25, 0.25, 0.25, 0.25, 0.25, 0.25 
NUT=0.25, 0.25, 0.25, 0.25, 0.25, 0.25 

GA=22.8E3,22.392E3,22.1 6E3,21 .928E3.21 .696E3.21 .344E3 
ALPA=3.564E-6,3.618E-6,3.726E-6,3.906E-6,4.068E-6,4.572E-6 
ALPT=3.564E-6,3.618E-6,3.726E-6,3.906E-6,4.068E-6,4.572E-6 
‘MATRIX 
NMATX=1 

NM=1 MM=4 NDPT=2 MAT=A % 

*MRVE 

IDP=99 

NA=1 NB=8 NG=14 
D=1 .0 

#NOTE: VF = 35% 

H=0.591 6,0.4084,0.591 6,0.4084,0.591 6,0.4084,0.591 6,0.4084 
L=0.591 6,0.4084,0.591 6,0.4084,0.591 6,0.4084,0.591 6,0.4084 & 

0.591 6,0.4084,0.591 6,0.4084,0.591 6,0.4084 
CM=F1,M1,F1,M1,F1,M1,F1,M1 
CM=M1,M1,M1,M1,M1,M1,M1,M1 
CM=F1,M1,F1,M1,F1,M1,F1,M1 
CM=M1,M1,M1,M1,M1,M1,M1,M1 
CM=F1,M1,F1,M1,F1,M1,F1,M1 
CM=M1,M1,M1,M1,M1,M1,M1,M1 
CM=F1 ,M1 ,F1 ,M1,F1 ,M1,F1 ,M1 
CM=M1,M1,M1,M1,M1,M1,M1,M1 
CM=F1,M1,F1,M1,F1,M1,F1,M1 
CM=M1,M1,M1,M1,M1,M1,M1,M1 
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CM=F1,M1,F1,M1,F1,M1,F1,M1 

CM=M1,M1,M1,M1,M1,M1,M1,M1 

CM=F1,M1,F1,M1,F1,M1,F1,M1 

CM=M1,M1,M1,M1,M1,M1,M1,M1 

‘DEBOND 

Nll=28 

DBCH=2 NAI=1 NBI=1 NGI=1 FACE=1 BDN=357 GCN=0.00001 BCN=10. TOLN=1 & 


BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=1 NGI=3 FACE=1 BDN=403 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=1 NGI=5 FACE=1 BDN=469 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=1 NGI=7 FACE=1 BDN=565 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=1 NGI=9 FACE=1 BDN=496 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=1 NGI=11 FACE=1 BDN=503 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=1 NGI=13FACE=1 BDN=612 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=3 NGI=1 FACE=1 BDN=450 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=3 NGI=3 FACE=1 BDN=655 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=3 NGI=5 FACE=1 BDN=603 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=3 NGI=7 FACE=1 BDN=512 GCN=0.00001 BCN=10. TOLN=1 & 


BDS=100 GCS=0.1 BCS=100 Tl=0 


DBCH=2 NAI=1 NBI=3 NGI=9 FACE=1 BDN=407 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=3 NGI=1 1 FACE=1 BDN=517 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=3 NGI=13 FACE=1 BDN=556 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=5 NGI=1 FACE=1 BDN=716 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=5 NGI=3 FACE=1 BDN=593 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100TI=0 

DBCH=2 NAI=1 NBI=5 NGI=5 FACE=1 BDN=631 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=5 NGI=7 FACE=1 BDN=640 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=5 NGI=9 FACE=1 BDN=678 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=5 NGI=11 FACE=1 BDN=584 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=5 NGI=13FACE=1 BDN=488 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=7 NGI=1 FACE=1 BDN=575 GCN=0.00001 BCN=10. TOLN=1 & 


171 



MAC/GMC. M icromechanics A nalysis C ode 


BDS=100GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=7 NGI=3 FACE=1 BDN=697 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100TI=0 

DBCH=2 NAI=1 NBI=7 NGI=5 FACE=1 BDN=754 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=7 NGI=7 FACE=1 BDN=546 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=7 NGI=9 FACE=1 BDN=537 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100 Tl=0 

DBCH=2 NAI=1 NBI=7 NGI=1 1 FACE=1 BDN=664 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=1 00 Tl=0 

DBCH=2 NAI=1 NBI=7 NGI=13 FACE=1 BDN=622 GCN=0.00001 BCN=10. TOLN=1 & 
BDS=100 GCS=0.1 BCS=100TI=0 
‘CURVE 
NP=3 % 

‘MACRO 

NT=2 

NC=1 X=1 Y=7 NAM=LONG-M 
NC=2 X=39 Y=1 NAM=LONG-T 
‘MICRO 
NT=3 

NC=1 CELL=1 X=1 Y=7 NAM=LONG-1 
NC=2 CELL=17 X=1 Y=7 NAM=LONG-2 
NC=3 CELL=33 X=1 Y=7 NAM=LONG-3 % 

‘END 
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6.14 Example N: Plain Weave Composite 


Sample Input File for Plain Weave 
Problem Summary 
Load Type: 

Load Component: 

Load History: 

Load Control: 

Load History Data: 


Composite: Step 1 - Determine Yarn Properties 
Mechanical 

33-direction (transverse to fiber) 

Monotonic 

Strain 

e=1.0x10' 4 /sec,e„„ =0.018, e mi „=0. 


At mech =4. SeC. 


Micromechanics Model: 
Fiber Packing Arrangement: 
Repeating Unit Cell: 
Integration Algorithm: 


Double Periodicity 

Square Pack, R = 1 65% fiber volume ratio 
26x26 circular fiber cross-section approx. 
Forward Euler 


Constituent Material Model: 


Constituents: 


Fiber: 

Elastic, transversely isotropic 

Matrix: 

Elastic, isotropic 

Fiber: 

AS-4 Graphite Fiber (properties 


input manually) 

Matrix: 

PMR-15 Epoxy (properties input 


manually) 


Note: Step 1 of analyzing a woven composite with MAC/GMC involves determining 
the effective properties of the fiber/matrix yarns which reinforce the woven 
composites. For the elastic example shown, this is quite simple and involves 
determining only the five transversely isotropic elastic properties and the two 
transversely isotropic CTEs for the unidirectional fiber/matrix yarn. These 
effective properties will then be employed in step 2 (using ncmd = 9, trans- 
versely isotropic model) to analyze the actual woven composite unit cell. 
Inelastic analysis of woven composites is possible with MAC/GMC, but the 
inelastic characterization of the unidirectional fiber/matrix yarns (for implemen- 
tation with one of the transversely isotropic inelastic constitutive models) 
becomes more complex. Future versions of MAC/GMC may include auto- 
mated routines to aid in the analysis of thermo-inelastic woven composites. 
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analysis of a graphite/epoxy yarn 
‘PRINT 
NPL=3 % 

‘LOAD 

LCON=2 LOP=3 LSS=1 % 

*MECH 

NPTW=2 Tl=0.,108. L0=0.,0.018 % 

‘MODEL 
MOD=1 % 

‘SOLVER 

NTF=1 NPTS=2 TIM=0.,108. STP=4. % 

‘FIBER 

NFIBS=1 

NF=1 MF=6 NDPT=1 MAT=U IFM=1& 

EL=31 .E6.2.E6, 0.2, 0.25, 2.E6,-0.55E-6,5.6E-6 % 
‘MATRIX 
NMATX=1 

NM=1 MM=6 NDPT=1 MAT=U IFM=1 & 

EL=0.5E6, 0.5E6, 0.41, 0.41, 0.1 773E6.57.E-6.57.E-6 % 
*MRVE 

IDP=13 VF=0.65 R=1 .0 
‘CURVE 
NP=1 % 

‘MACRO 

NT=1 

NC=1 X=3 Y=9 NAM=YARN 
‘END 


Results for fiber/matrix yarn: 

EFFECTIVE ENGINEERING MODULI 
El 1S= .203E+08 
N12S= .272E+00 
E22S= .134E+07 
N23S= .432E+00 
E33S= .134E+07 
G23S= .359E+06 
G13S= .596E+06 
G12S= .596E+06 

EFFECTIVE THERMAL EXPANSION COEFFICIENTS 
.493E-07 .310E-04 .310E-04 
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Sample Input File for Plain Weave Composite: Step 2 - Composite Behavior 
Problem Summary 

Mechanical 


Load Type: 

Load Component: 

Load History: 
Load Control: 


33-direction (in the plane of the woven rein- 
forcement) 

Monotonic 

Strain 


Load History Data: 


e =1 .0x1 0' 4 /sec , e =0.018, e =0. 

» • ■ v i ww , ^ mnr w > '“'min 


mech =4. See. 


Micromechanics Model: 
Repeating Unit Cell: 

Integration Algorithm: 
Constituent Material Model: 

Constituents: 


Triple Periodicity 

Input manually - approximates a plain weave 
reinforced composite 

Forward Euler 


Fiber/Matrix Yarns: Elastic, locally trans- 
versely isotropic 
Pure Matrix: Elastic, isotropic 


Fibers 1-4: 


Matrix 1 : 
Matrix 2, 3: 


V, = 65% AS-4/PMR-15 
yarns with different fiber 
orientations (properties 
input manually) 

PMR-15 Epoxy (properties 
input manually) 

V f = 65% AS-4/PMR-15 
yarns with different fiber 
orientations (properties 
input manually) 


**■ Note: MAC/GMC currently limits the number of fiber and matrix constituents to 
4 each. 
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Note: Step 2 of analyzing a woven composite with MAC/GMC involves assem- 
bling a repeating unit cell that represents the woven composite using the 
effective fiber/matrix yarn properties determined in step 1 . The repeat- 
ing unit cell employed for a plain weave composite in this example is 
shown in the figure below. The heterogeneous subcells in this figure are 
represented by effective fiber/matrix yarn properties, while the local fiber 
direction of these subcells is accounted for by the D vector in the locally 
transversely isotropic constitutive model. 



User defined IDP for woven architecture (not drawn to scale) 
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plain weave reinforced composite 
‘PRINT 
NPL= 3% 

‘LOAD 

LCON=2 LOP=3 LSS=1 % 

*MECH 

NPTW=2 Tl=0.,108. LO=0., 0.018 % 

‘THERM 

NPTT=2 Tl=0.,108. TE=23.,23. 

‘MODEL 
MOD=2 % 

‘SOLVER 

NTF=1 NPTS=2 TIM=0.,108. STP=4. % 

‘FIBER 

NFIBS=4 

NF=1 MF=9 NDPT=1 MAT=U IFM=1 & 

EL=20.3E6,1 .34E6, 0.272, 0.432, 0.596E6.0.0493E-6, 31 .E-6 D=0.,0.,1 . % 
NF=2 MF=9 NDPT=1 MAT=U IFM=1& 

EL=20.3E6,1 .34E6, 0.272, 0.432, 0.596E6.0.0493E-6, 31. E-6 D=0.,1 .,0. % 
NF=3 MF=9 NDPT=1 MAT=U IFM=1& 

EL=20.3E6,1 .34E6, 0.272, 0.432, 0.596E6.0.0493E-6, 31 .E-6 D=0.25,1 .,0. % 
NF=4 MF=9 NDPT=1 MAT=U IFM=1& 

EL=20.3E6,1 .34E6, 0.272, 0.432, 0.596E6.0.0493E-6, 31 .E-6 D=-0.25,1 ., 0 . % 
‘MATRIX 
NMATX=3 

NM=1 MM=6 NDPT=1 MAT=U IFM=1 & 

EL=0.5E6,0.5E6, 0.41, 0.41 ,0.1773E6,57.E-6,57.E-6 % 

NM=2 MM=9 NDPT=1 MAT=U IFM=1 & 

EL=20.3E6,1 .34E6, 0.272, 0.432, 0.596E6.0.0493E-6, 31 .E-6 D=0.25,0.,1 . % 
NM=3 MM=9 NDPT=1 MAT=U IFM=1 & 

EL=20.3E6,1 .34E6, 0.272, 0.432, 0.596E6.0.0493E-6, 31 .E-6 D=-0.25,0.,1 . % 
*MRVE 
IDP=99 

NA=4 NB=4 NG=4 
D=0.25, 0.25, 0.25, 0.25 
H=1.,1.,1.,1. 

L=1.,1.,1.,1. 

CM=F1,M1,F2,M1 

CM=F1,F3,F2,F4 

CM=F2,F3,F1,F4 

CM=F2,M1,F1,M1 

CM=M1,M1,M1,M1 

CM=M3,M1,M2,M1 

CM=M3,M1 ,M2,M1 

CM=M1,M1,M1,M1 

CM=F2,M1,F1,M1 
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CM=F2,F4,F1,F3 
CM=F1 ,F4,F2,F3 
CM=F1,M1,F2,M1 

CM=M2,M1,M3,M1 

CM=M2,M1,M3,M1 

‘CURVE 
NP=1 % 

‘MACRO 

NT=1 

NC=1 X=3 Y=9 NAM=WEAVE 
‘END 
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Results for woven composite: 

EFFECTIVE ENGINEERING MODULI 

E11S= .920E+06 
N12S= .288E+00 
E22S= . 1 58E+07 
N23S= .151E+00 
E33S= .158E+07 
G23S= .357E+06 
G13S= .351E+06 
G12S= .351E+06 


EFFECTIVE THERMAL EXPANSION COEFFICIENTS 

.548E-04 .261E-04 .261E-04 
.000E+00 .318E-22 -.567E-23 



0.00 


0.50 


1.00 

Strain 


1.50 


2.00x10' 


*** Note: The overall volume fraction is 32.5% while that of the yarn itself is 65%. 
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6.15 Example O: FEAMAC Analysis 

Sample Input Files For FEAMAC Analysis 


Problem Summary: 

Load Type: Thermomechanical; Load Control (ABAQUS) 

Load History Data: From ABAQUS: 

STEP 1 : Cool down 
Temperature: 860.0 to 427.0°C 
Strain: 0.0 - 0.0 

STEP 2: Transverse loading 
Temperature held fixed at 427. 0°C 
Strain: 0.0 to 0.015 


Micromechanics model: Double Periodic 


Fiber Packing Arrangement: Square Fiber (idp=2) 

Triangular Pack at 33% fiber volume ratio 

Circular Fiber (idp=6) 

Rectangular Pack at 33% fiber volume ratio 

Integration Algorithm: Forward Euler (ABAQUS) 

Constituent Material Model: Fiber: Elastic (ncmd = 7) 

Matrix: TGVIPS (ncmd = 7) 


Constituents: 


Fiber: SCS-6 

Matrix: Ti-6-4 (isotropic) 


Debonding: First implementation of debond model 

Finite Element Model: Consists of 2 (8-noded brick) elements each 

with a different material. In this way the exam- 
ple demonstrates the use of multiple material 
groups. 


er FEAMAC Note: All data that is struck-out in the listing is not required by 
FEAMAC and is ignored if present. Warnings are generated informing the user 
that the data provided is being ignored. FEAMAC can be employed with any size 
of a finite element mesh. However, FEAMAC requires that an appropriate amount 
of state variable space be allocated for each user material found in the finite ele- 
ment model. The amount of state variable space to be allocated for a given user 
material is based on the size of the RVE requested in the corresponding MAC/ 
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GMC input deck. The number of state variables must be less than 1000. The 
*DEPVAR option under each of the ‘USER MATERIAL sections should be used 
to define the size of this space. The number of CONSTANTS s hould be set to one 
on the *USER MATERIAL line and on the following line the value should be set to 
one . If the material model is linear elastic and no micro curve data files have been 
requested then no state variable space is required for that material. 

To determine the amount of space to request use the following equation: 

NG = Number of cells in the gamma direction 

NB = Number of cells in the beta direction 

NDEPVAR = Number of state variables to be to be provided to the 
*DEPVAR option. 

NDEPVAR = 46 + ( 42 * NG * NB ) <1000 

Therefore, based on the predefined RVE’s in section 4.2.13: 


IDP 

NDEPVAR 


1 

214 


2 

718 


3 

718 


4 

718 


6 

2104 

Too Large: Must use alternate method described below 

9 

2104 

Too Large: Must use alternate method described below 

11 

214 


13 

28,438 

Too Large: Must use alternate method described below 


EXAMPLE: 


‘MATERIAL, NAME=MACDECK1 
*USER MATERIAL, CONSTANTSA 
1 

•DEPVAR 

214 

Where MACDECK1 references an IDP of size 2x2. 
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ALTERNATE METHOD: 

If a chosen IDP requires more than 1000 state variables then the following alter- 
nate procedure must be followed: 

On the ‘USER MATERIAL line set the number of CONSTANTS equal to 1 and on 
the following line set the value of this constant to be two. Also set the number of 
state variables on the *DEPVAR option to zero. 


EXAMPLE: 

‘MATERIAL, NAME=MACDECK2 
‘USER MATERIAL, CONSTANTS=1 
2 

‘DEPVAR 

0 

Where MACDECK2 references an IDP that would require more than 1000 
state variables (e.g. IDP = 9). 


er FEAMAC Note: This alternate procedure will cause execution times to 
increase greatly. 

FEAMAC Note: It is highly recommended that linear elastic materials with no 
requests for micro curve data be used in all areas of the model except in areas of 
suspected material nonlinearity, irrespective of memory approach. 
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MAC/GMC Input Listings: MACMAN1: 

FEAMAC DEMO - Material group No. 1 , identified in ABAQUS deck as MACMAN1 
‘PRINT 
NPL=1 % 

‘LOAD 

LCON=3 LOP - 3 LSS -4-% 

* MECH 

NPTW-3 TI-0.0, 58000.0, 58150.0 LO-0.0, 0.0, 0.015 % 

* T HF R M 

III L. I li v i 

NPTT - 3 TI - 0.0, 58000.0, 58150.0 TE-860.0 r 427.0, ^127.0 - % 

‘MODEL 
MOD=1 % 

‘SOLVE R 
NTF-1 & 

NPTS - 3 T t M-0.0, 58000.0, 58150.0 STP - 2000.0, 1.0 % 

‘FIBER 

NFIBS=1 

NF=1 MF=4 NDPT=1 MAT=U IFM=1 & 

EL=58.E3, 0.32, 3.5E-06 & 

VI=0.8E-9,1 .E20.0.1 E-5,0.,0.85E-4,0.05,1 .,1 .,1 .,3.3,1 .8,1 .35,1 .,0.01 % 

‘MATRIX 

NMATX=1 

NM=1 MM=7 NDPT=2 MAT=A D=1.0, 1.0, 1.0 % 

*MRVE 

IDP=2 VF=0.33 % 

‘DEBOND 

Nll=2 

DBCH=1 NBI=1 NGI=2 FACE=2 RN=0.1 BDN=35.0 RS=0.0 BDS=0.0 Tl=58000.0 
DBCH=1 NBI=1 NGI=3 FACE=2 RN=0.1 BDN=35.0 RS=0.0 BDS=0.0 Tl=58000.0 

% 

‘CURVE 
NP=1 % 

‘MACRO 

NT=1 

NC=1 X=3 Y=9 NAM=macman1_s3_e3n % 

‘END 
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FEAMAC DEMO - Material group No. 2, identified in ABAQUS deck as MACMAN2 
‘PRINT 
NPL=1 % 

‘LOAD 

LCON=3 LOP=3 LSS-1 -% 

‘MECH 



‘FIBER 

NFIBS=1 

NF=1 MF=9 NDPT=2 MAT=A D=1.0, 0.0, 0.0 % 

‘MATRIX 

NMATX=1 

NM=1 MM=7 NDPT=2 MAT=A D=1 .0, 1 .0, 1 .0 % 

*MRVE 

IDP=6 VF=0.33 R=0.75% 

‘DEBOND 

Nll=10 

DBCH=1 NBI=4 NGI=1 FACE=2 RN=0.1 BDN=14.0 RS=0.0 BDS=0.0 Tl=58000.0 
DBCH=1 NBI=4 NGI=6 FACE=2 RN=0.1 BDN=14.0 RS=0.0 BDS=0.0 Tl=58000.0 
# 

DBCH=1 NBI=2 NGI=3 FACE=2 RN=0.1 BDN=22.0 RS=0.0 BDS=0.0 Tl=58000.0 
DBCH=1 NBI=2 NGI=4 FACE=2 RN=0.1 BDN=22.0 RS=0.0 BDS=0.0 Tl=58000.0 
# 

DBCH=1 NBI=3 NGI=2 FACE=2 RN=0.1 BDN=18.0 RS=0.0 BDS=0.0 Tl=58000.0 
DBCH=1 NBI=3 NGI=5 FACE=2 RN=0.1 BDN=18.0 RS=0.0 BDS=0.0 Tl=58000.0 
# 

DBCH=1 NBI=6 NGI=3 FACE=2 RN=0.1 BDN=22.0 RS=0.0 BDS=0.0 Tl=58000.0 
DBCH=1 NBI=6 NGI=4 FACE=2 RN=0.1 BDN=22.0 RS=0.0 BDS=0.0 Tl=58000.0 
# 

DBCH=1 NBI=5 NGI=2 FACE=2 RN=0.1 BDN=18.0 RS=0.0 BDS=0.0 Tl=58000.0 
DBCH=1 NBI=5 NGI=5 FACE=2 RN=0.1 BDN=18.0 RS=0.0 BDS=0.0 Tl=58000.0 
# 

‘CURVE 
NP=1 % 

‘MACRO 

NT=1 

NC=1 X=3 Y=9 NAM=macman2_s3_e3n % 

‘END 
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ABAQUS 5.8 Input Listing: 


♦HEADING 

VERIFICATION OF FEAMAC 
*NODE,NSET=ALL 

1,0.0, 0.0, 0.0 

2,0.0, 1.0, 0.0 

3.0. 0, 1.0, 1.0 

4, 0.0, 0.0, 1.0 

5, 1.0, 0.0, 0.0 

6 , 1 . 0 , 1 . 0 , 0.0 

7, 1.0, 1.0, 1.0 

8 , 1 . 0 , 0 . 0 , 1.0 

9, 2.0, 0.0, 0.0 

10 . 2 . 0 , 1 . 0 , 0.0 

11 , 2 . 0 , 1 . 0 , 1.0 

12 , 2 . 0 , 0 . 0 , 1.0 

♦ORIENTATION, NAME=TRANS 
0.0, 0.0, 1.0, 0.0, 1.0, 0.0 
♦ELEMENT, TYPE=C3D8, ELSET=EL1 
1, 1,2, 3, 4, 5, 6, 7, 8 

♦ELEMENT, TYPE=C3D8, ELSET=EL2 
2,5,6, 7, 8, 9, 10, 11, 12 

♦SOLID SECTION, M ATERIAL=MACMAN 1 , ELSET=EL1, ORIENTATION =TR AN S 
1.0 

♦SOLID SECTION, MATERIAL=MACMAN2, ELSET=EL2, ORIENTATION=TRANS 
1.0 

*MATERIAL,NAME=MACMAN 1 
♦USER MATERIAL, CONSTANTS=l 
1 

♦DEPVAR 

718 

♦USER DEFINED FIELD 
♦EXPANSION, TYPE=ANISO, USER 
* M ATERIAL,NAME=M ACM AN 2 
♦USER MATERIAL, CONSTANTS =1 
2 

♦USER DEFINED FIELD 
♦EXPANSION, TYPE=ANISO, USER 
♦USER SUBROUTINE 

♦INCLUDE, INPUT=/home/smdant/macdev/feabench/man_demo/umacman.f 
♦INITIAL CONDITIONS, TYPE=TEMPERATURE 
ALL, 860.0 

♦INITIAL CONDITIONS, TYPE=FIELD, VARIABLE=1 
ALL, 1.0 


♦STEP, AMPLITUDE=RAMP, INC=2000000 
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STEP ONE - COOL DOWN 
*STATIC, DIRECT 
2000.0, 58000.0 
♦TEMPERATURE 
ALL, 427.0 
♦BOUNDARY 

1, 1,3 

2 , 1 

2.3 

3.1 

4, 1,2 

5.2.3 

6.3 

8.2 
9, 2,3 
10,3, 

12,2 

*NSET, NSET=ALL 
1,2, 3,4,5, 6,7, 8, 9, 10, 11, 12 
♦EL PRINT, FREQ=1000 
S 

♦EL PRINT, FREQ=1000 
E 

♦EL PRINT, FREQ=1000 
THE, TEMP 

♦NODE PRINT, FREQ=1000, NSET=ALL 
U 

♦NODE PRINT, FREQ=1000, NSET=ALL 
CF 

♦NODE PRINT, FREQ=1000, NSET=ALL 
RF 

♦END STEP 


♦STEP, AMPLITUDE=RAMP, INC=2000000 

STEP TWO - LOAD UP 

♦STATIC, DIRECT 

1.0, 150.0 

♦BOUNDARY 

1.1.3 

2,1 

2.3 
3,1 

4.1.2 
5, 2,3 

6.3 

8.2 
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9, 2,3 
10,3, 

12,2 

9, 1, 1,0.015 

10, 1, 1,0.015 

11, 1, 1,0.015 

12, 1, 1,0.015 
♦TEMPERATURE 
ALL, 427.0 
♦END STEP 


The following figure was obtained from the macro x-y plot data files produced by 
the present example. 



Strain 
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ABAQUS UMAT Subroutine Listing: 

C COMMON TO SOLIDS AND SHELLS 
C 

111111111122222222223333333333444444444455555555556666666666777 
C23 456789 012 34 567 8901234567 89 012 34567890123456789012 3 45 67 8901234567 82 

C 

c / / / / // \/ / / / _ \ 

C / / / A_ \/ / / / / //_//// 

C / /_/ / / / /_/ / / / _/ / /_/ / 

C \ // / / /_/ / / 

C 

C 

111111111122222222223333333333444444444455555555556666666666777 
C23456789012345678901234567890123456789012345 67 8901234567890123456789 

C 


C ORDER OF ABAQUS FUNCTION CALLS 
C 

C - UMAT (SOLID) 

C (if needed) / 

C USDFLD -=> U EX PAN -=< or 
C \ 

C - UGENS (SHELL) <-= TBD 

C 


SUBROUTINE USDFLD (FIELD, STATEV, PNEWDT, DIRECT, T, CELENT, 

& TIME, DTIME, CMNAME, ORNAME, NFIELD, NSTATV, NOEL, NPT , 

& LAYER, KSPT , KSTEP, KINC, NDI , NSHR) 


INCLUDE ' ABA_PARAM . INC ' 

PARAMETER (ZERO = 0 . 0D0 , HALF = 0.5D0) 

PARAMETER (ONE = 1 . 0D0 , TWO = 2 . 0D0 , THREE = 3.0D0) 
PARAMETER { NFROM_UTHERM = 1, NFROM_UMECH = 2) 

CHARACTER* 8 CMNAME, ORNAME 

DIMENSION FIELD (NFIELD) , STATEV (NSTATV) , DIRECT ( 3 , 3 ) 
DIMENSION T{ 3, 3) , TIME (2) 

CHARACTER* 80 FNAME 
CHARACTER* 80 EXTSION 
CHARACTER* 80 DFNAME 
CHARACTER* 80 PATH 
CHARACTER* 80 TSTRING 

CHARACTER* 80 TNAME1 
CHARACTER* 80 TNAME2 

INTEGER AB_PRINT 
INTEGER GAB_PRINT 
INTEGER AL_STORE 
INTEGER AB_STEP 

LOGICAL SIGAL_STATV 


CHARACTER* 8 FLGRAY (15) 

DIMENSION ARRAY (15) , JARRAY (15) 

COMMON / KINCINFO / AB_STEP, INC, NCYCLE 
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COMMON / KTIME / STEP_TIME, TOT_TIME, GDT 

COMMON / KMACFLAGS / NFIRSTTIME, NFIRSTELEM, NFIRSTIP, 

& AL_STORE , N_PEN ( 100 ) , N_PIN(100), NPEL, 

& N_PATPEN(100) , N_PATPIN(100) , NPATPEL, 

& AB_PRINT, GAB_PRINT, S IGAL_STATV , NCALL, NFEA_FROM 

COMMON / KABNAMES / PATH, FNAME, DFNAME , TNAME1 , TNAME2 , EXTSION 

COMMON / KPREMAC / NDU, NNOEL, NNPT, NNDI , NNSHR 

COMMON / KTHERMONLY / DTHERMSTRESS ( 6 ) , DTHERMSTRAIN { 6 ) , 

& DDTHERMSTRAIN_DT ( 6 ) , THERMSTRESS ( 6 ) , THERMSTRAIN ( 6 ) 


DATA NFIRSTELEM / 0 / 
DATA NFIRSTIP / 0 / 
DATA NFIRSTTIME / 1 / 


NFEA_FROM = 0 


£+★★**********★**★*★************* 

C INITIALIZE 

q*******-************************* 

NNOEL = NOEL 
NNPT = NPT 
NNDI = NDI 
NNSHR = NSHR 

NCALL = 0 

IF (NFIRSTTIME .EQ. 1) THEN 
CALL FEAMAC_INIT (NOEL, NPT) 

ENDIF 

AB_PRINT = GAB_PRINT 

Q***********-********************* 

C DEFINE MAC INPUT DECK NAME 

Q* ******************************* 

CALL FILL_STRING (TSTRING, ' ') 

CALL FILL_STRING (FNAME, ' ') 

CALL STRING_COPY( FNAME, CMNAME) 

CALL STRING_APPEND( FNAME, EXTSION) 

TSTRING = PATH 

CALL STRING_APPEND( TSTRING, FNAME) 

FNAME = TSTRING 

£***+***********★★******★*****★** 

C DEFINE STEP INFORMATION 

Q******************************** 

IF ( ( NOEL .EQ. NFIRSTELEM ) 

& .AND. ( NPT .EQ. 1 ) 

& .AND. ( (KINC - 1) .NE. INC) ) THEN 

NCYCLE = -1 
ENDIF 

IF ( ( NOEL .EQ. NFIRSTELEM ) 

& .AND. ( NPT .EQ. 1 ) ) THEN 

NCYCLE = NCYCLE + 1 
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END IF 

AB_STEP = KSTEP 
GDT = DTIME 
STEP_TIME = TIME ( 1 ) 

TOT_TIME = TIME (2) 

INC = KINC - 1 

C WE CAN MAKE CALLS TO GETVRM FROM HERE TO GET ADDTIONAL INFO IF NEEDED 
CALL GETVRM (' THE ' , ARRAY, JARRAY, FLGRAY , JRDC) 

DO J = 1, 6 

THERMSTRAIN ( J) = ARRAY (J) 

THERMSTRESS ( J) = 0.0 
DTHERMSTRESS ( J) =0.0 
DTHERMSTRAIN ( J) =0.0 
DDTHERMSTRAIN_DT ( J) =0.0 
ENDDO 


( AB_PRINT 
WRITE (NDU, 
WRITE (NDU, 

.GE. 1 ) 
*> ' ' 

THEN 


i 

* ) = 




WRITE (NDU, 

II 

II A 
II II 

II 1 

II 

II * 

START OF USDFLD <= 

_ / 


WRITE (NDU, 

*) '-=> 

VALUE OF STEP TIME 

= 9 , 

TIME ( 1 ) , STEP_TIME 

WRITE (NDU, 

*) >-=> 

TOTAL TIME 

= # , 

TIME (2), TOT_TIME 

WRITE (NDU, 

*) '-=> 

DTIME 

= ' , 

DTIME, GDT 

WRITE (NDU, 

*) '-=> 

KSTEP 

= ' / 

KSTEP, AB_STEP 

WRITE (NDU, 

*) >-=> 

KINC 

= ' , 

KINC , INC+1 

WRITE (NDU, 

*) >-=> 

NOEL 

= ' t 

NOEL, NNOEL 

WRITE (NDU, 

*) '-=> 

NPT 

— ' t 

NPT, NNPT 

WRITE (NDU, 

*> '-=> 

NDI 

= ' / 

NDI 

WRITE (NDU, 

*) '-=> 

NSHR 

= ' , 

NSHR 

WRITE (NDU, 

*) '-=> 

NCYCLE 

= 1 / 

NCYCLE 

WRITE (NDU, 

*) >-=> 

NFIRSTELEM 

= ' , 

NFIRSTELEM 

WRITE (NDU, 

*) '-=> 

NFIRSTIP 

= ' , 

NFIRSTIP 

WRITE (NDU, 
WRITE (NDU, 

A A 
II II 

1 1 

+ + 

NCALL 

FNAME = | ' , FNAME , 


NCALL 


END IF 


RETURN 

END 
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C 

111111111122222222223333333333444444444455555555556666666666777 
C23 456789012345 6789012 3456789012345678901234567 89012 345 67 890123456789 
012 

C 

C / / / I \l I / / _/ II _/_ _/ 

c //_/_// /| / / |_/ / / 1 / / III I II I I I 

C / _/ / / / II II / / _/ // / III II 

c /_/ / /_/ |_/_/ /_/_/ |_\ / / /_/ _/ / /_/ 

c / / 

c 

c 

111111111122222222223333333333444444444455555555556666666666777 
C2 3456789012345678901234567890123456789012 345678901234567890123456789 
012 

SUBROUTINE FEAMAC_INIT ( NOEL , NPT) 

INCLUDE ' ABA_PARAM . INC ' 

CHARACTER* 80 FNAME 
CHARACTER* 80 EXTSION 
CHARACTER* 80 DFNAME 
CHARACTER* 80 PATH 
CHARACTER* 80 TSTRING 

CHARACTER* 80 TNAME1 
CHARACTER* 80 TNAME2 


INTEGER AB_PRINT 
INTEGER GAB_PRINT 
INTEGER AL_STORE 
INTEGER AB_STEP 


COMMON / KINCINFO / AB_STEP, INC, NCYCLE 
COMMON / KTIME / STEP_TIME, TOT_TIME , GDT 

COMMON / KMAC FLAGS / NFIRSTTIME, NFIRSTELEM, NFIRSTIP, 

& AL_STORE , N_PEN (100) , N_PIN{100), NPEL, 

& N_PATPEN ( 100 ) , N_PATPIN ( 100 ) , NPATPEL , 

& AB_PRINT, GAB_PRINT , S IGAL_STATV , NCALL, NFEA_FROM 

COMMON / KABNAMES / PATH, FNAME, DFNAME, TNAME1 , TNAME2 , EXTSION 

COMMON / KPREMAC / NDU, NNOEL, NNPT, NNDI , NNSHR 

LOGICAL SIGAL_STATV 

CALL F I LL_STRING ( PATH , * ') 

CALL FI LL_STRING (FNAME, ’ ') 

CALL F I LL_STRING (EXTSION, ' ') 

CALL F I LL_STRING (DFNAME, ' ') 

CALL FILL_STRING (TSTRING, ' ') 

CALL F I LL_STRING ( TNAME 1 , ' ') 

CALL FILL_STRING (TNAME2 , ' ') 

q ***************************************** 

C 

C / _ ) / / / _/ / / 

C /_/_///_/// II 

C / /_/ / / / /_/ // // /I / 

C / / /\ / /_/ |_/ 
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C 

C / / / / II / _ \ 

C III A \/ / / /_/ / 

c / /_/ / / / / / _, _/ 

c \ // / /_/ |_| 

c 

c / / \/ _/_ _/ / 

C /_/////// II \ \ 

C / / / /_/ III II / / 

c / / / / /_/ / / 

c 

Q ***************************************** 

C *** BEGIN USER EDITS *** 

C *** USER NEEDS TO CHANGE THE NEXT LINES AS NEEDED. . . 

C PATH TO WORKING DIRECTORY 

PATH = ' /home/smdant/macdev/feabench/man_demo ' 

C NOTE: ABAQUS WILL CONVERT THE MATERIAL NAME TO UPPER CASE. 
C MAC INPUT DECK NAME EXTENSION 
EXT SI ON = '.MAC' 


C THE FOLLOWING IS ONLY USED TO RESOLVE VERSION DIFFERENCES BETWEEN 
SUN AND SGI 

C NAME OF DIAGNOSTIC FILE 
DFNAME = * MACDIAG ' 


C MAC PLOT FILES: 

C - # OF POINTS TO PLOT, I.E # OF PAIRS TO FOLLOW 

NPEL = 2 

C - ELEMENT # AND INTEGRATION POINT # PAIRS TO PLOT 

C N_PEN - ELEMENT NUMBERS 

C N_PEN - INTEGRATION POINT NUMBERS 

J = 1 

N_PEN(J) = 1 
N_PIN ( J) = 1 

J = J + 1 
N_PEN ( J) = 2 
N_PIN(J) = 1 


C PATRAN PLOT FILES: 

C - # OF POINTS TO PLOT PATRAN DATA, I.E # OF PAIRS TO FOLLOW 

NPATPEL = 0 

C - ELEMENT # AND INTEGRATION POINT # PAIRS TO PLOT PATRAN DATA 

C N_PATPEN - ELEMENT NUMBERS 

C N_PATPEN - INTEGRATION POINT NUMBERS 

C J = 1 

C N_PATPEN ( J) = 1 

C N_PATPIN { J) = 1 

C J = J + 1 

C N_PATPEN ( J ) = 2 

C N_PATPIN ( J) = 1 


C THE FOLLOWING IS DEPRECIATED OPTION AND MAY NOT BE SUPPORTED 
C IN THE NEXT RELEASE OF FEAMAC . IT'S USE IS NOT RECOMMENDED. 
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C 

C SET THE AL_STORE VARIABLE TO 1 IF YOU WANT TO POPULATE THE STATEV 
C ARRAY PER ALLISON ENGINE COMPANY'S SPECS. (IDP 1 & 11 ONLY) 

C 

C NOTES: 1) THIS OPTION REQUIRES THE USE OF THE ALTERNATE METHOD OF 


C USER MATERIAL DEFINTION AS DESCRIBED IN THE MAC MANUAL. 

C 

C 2) A STATE VARIABLE SPACE OF 900 IS REQUIRED. 

C 

c 

C 

C Ml M2 

C 

C (3) (4) 

C 

c 

C BETA 

C A F M3 

C 

C (1) (2) 

C 

C 

C 

C > GAMMA 

C INDICES 

C 1-12 -=> MATRIX STRESS AND STRAIN IN SUBCELL Ml 


C 23-34 -=> FIBER STRESS AND STRAIN 

C 132 - 137 -=> MATRIX MECHANICAL STRAIN COMPONENTS IN SUBCELL Ml 

C 301 - 312 -=> MATRIX STRESS AND STRAIN IN SUBCELL M2 

C 432-437 -=> MATRIX MECHANICAL STRAIN COMPONENTS IN SUBCELL M2 

C 601 - 612 -=> MATRIX STRESS AND STRAIN IN SUBCELL M3 

C 732-737 -=> MATRIX MECHANICAL STRAIN COMPONENTS IN SUBCELL M3 

AL_STORE = 0 


AB_PRINT = 0 


C *** TEMP FILE LOCATIONS 

C *** SYS ADMIN OR USER NEEDS TO CHANGE THE NEXT LINES AS NEEDED. .. 
TNAMEl = ' /var/ tmp/ feamacl ' 

TNAME2 = % /var/ tmp/ feamac2 ' 

C *** END OF USER EDITS *** 

C 

C / / / / \ 

C / _/ / / / / / / 

C / / / / / /_/ / 

C / /_/ _/ / 

C 

C III! // / __ \ 

C III l\_ \f _/ / /_/ / 

C / /_/ / / / / / _/ 

c \ // / /_/ |_| 

c 

c / / _ \/ _/_ _/ / 

c /_////// / / / \ \ 

C / / / /_//// II / / 

c / / / / /_/ / / 

c 
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Q ***************************************** 

TSTRING = PATH 

CALL STRING_APPEND (TSTRING, '/ ') 

PATH = TSTRING 

TSTRING = PATH 

CALL STRING_APPEND (TSTRING, DFNAME ) 

DFNAME = TSTRING 

DO 100 J = 1, NPEL 

IF ( (N_PIN(J) .LT. 1) .OR. (N_PIN(J) .GT. 8) ) THEN 

N_PIN ( J) = 1 
END IF 
100 CONTINUE 

NDU = 7 

UN-COMMENT NEXT 2 LINES IF YOUR ON A SGI 
NDU = 18 

OPEN ( UNIT = NDU, FILE = DFNAME, STATUS = 'UNKNOWN') 

WRITE (NDU, *) 'BEGIN' 

NFIRSTELEM = NOEL 
NFIRSTIP = NPT 

NCYCLE = -1 

GAB_PRINT = AB_PRINT 

RETURN 
END 


C 

111111111122222222223333333333444444444455555555556666666666777 
C23 4567 8901234567 89012 34 5 67 8901234567890123456789012 345 67 890 1234 567 8 9 
012 

C 

C / / / / | II /_ / 

C till / | _/ / / | II 

C / /_/ / / II / / 

C \ /_/ /_/_/ [_/_/ 

C 

c 

111111111122222222223333333333444444444455555555556666666666777 
C234567 890123 4567 89012 34 567 8901234567890123456789 01234567 89 012 3 456789 
012 

SUBROUTINE UMAT ( STRESS , STATEV, DDSDDE, SSE, SPD, SCD, RPL, 

& DDSDDT , DRPLDE, DRPLDT, STRAN, DSTRAN, TIME, DTIME, TEMP, 

& DTEMP, PREDEF, DPRED, CMNAME, NDI , NSHR, NTENS , NSTATV , 

& PROPS, NPROPS , COORDS, DROT, PNEWDT, CELENT, DFGRD0 , 

& DFGRD1 , NOEL, NPT, LAYER, KSPT, KSTEP , KINC) 


C 

111111111122222222223333333333444444444455555555556666666666777 
C2 34 567 89012 3456789 012 3456789012345678901234567 89012345 67 89 012 3 4567 89 
012 
C 

C STRESS (NTENS) - PASSED IN AS THE STRESSES TENSOR AT THE BEGINNING 

C OF THE INCREMENT, SIGMA_I_J. (THIS SHOULD BE UPDATED IN 

C THIS ROUTINE.) 

C -IN/OUT 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


STATEV (NSTATV) - SOLUTION DEPENDANT STATE VARIABLES. 
-IN /OUT 

Format of state variable space... 


total strain ( 1 — 6 ) 

cauchy stress (7-12) 

inelastic strain (13-18) 

state variable(s) (19-30) 
(space for 2 (6x1) vectors) 


thermal strain (31-36) 
temperature (37) 

future use (38-40) 

future use (41-43) 

future use (44-46) 


"MACRO" quantities when 
micromechanics model 
or continuum model 
is used. 


total strain (47-52) 

cauchy stress (53-58) 

.nelastic strain (59-64) 


"MICRO" quantities: 
this block of NSVARS = i 
is repeated for each subce^ 


internal state variable (s) 

(65-76) 

(space for 2 [6x1] vectors) 

thermal strain (77-82) 

rn Sc rd debond (83-88) 

parameters 


etc . 


(89-. . .) 


DDSDDE (NTENS, NTENS ) - JACOBIAN MATRIX Of THE CONSTITUTIVE 
MODEL . 

-OUT 

SSE - SPECIFIC ELASTIC STRAIN ENERGY. 

-OUT 

SPD - PLASTIC DISSIPATION. 

-OUT 

SCD - CREEP DISSIPATION. 

-OUT 

RPL - VOLUMETRIC HEAT GENERATION PER UNIT TIME AT THE END 
OF THE INC. 

-OUT (COUPLED) 

DDSDDT (NTENS) - VARIATION OF STRESS INCREMENTS WITH 
RESPECT TO TEMPERATURE. 

-OUT (COUPLED) 

DRPLDE (NTENS) - VARIATION OF RPL WRT STRAIN INCREMENTS. 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


-OUT { COUPLED ) 

DRPLDT - VARIATION OF RPL WRT THE TEMPERATURE INCREMENT. 

-OUT (COUPLED) 

STRAN ( NTENS ) - TOTAL STRAINS AT BEGINNING OF THE INCREMENT. 

-IN 

DSTRAN (NTENS) - STRAIN INCREMENTS 
-IN 

TIME ( 1 ) - VALUE OF STEP TIME AT BEGINNING OF CURRENT INCREMENT 

-IN 

TIME (2) - TOTAL TIME AT BEGINNING OF CURRENT INCREMENT 
-IN 

DTIME - TIME INCREMENT 
-IN 

TEMP - TEMPERATURE AT START OF INCREMENT 
-IN 

DTEMP - INCREMENT OF TEMPERATURE 
-IN 

PREDEF - ARRAY OF INTERPOLATED VALUES OF PREDEFINED FIELD 
VARIABLES . 

-IN 

DPRED - ARRAY OF INCREMENTS OF PREDEFINED FIELD VARIABLES. 

-IN 

CMNAME - NAME GIVEN ON * MATERIAL OPTION, LEFT JUSTIFIED. 

-IN 

NDI - NUMBER OF DIRECT STRESS COMPONENTS AT THIS POINT. 

-IN 

NSHR - NUMBER OF ENGINEERING SHEAR STRESS COMPONENTS AT 
THIS POINT. 

-IN 

NTENS - SIZE OF THE STRESS OR STRAIN COMPONENT ARRAY 
(NDI + NSHR) 

-IN 

NSTATV - NUMBER OF SOLUTION DEPENDANT STATE VARIABLES. 

-IN 

PROPS (NPROPS) - ARRAY OF MATERIAL CONSTANTS. 

-IN 

NPROPS - NUMBER OF MATERIAL CONSTANTS. 

-IN 

COORDS - ARRAY CONTAINING THE COORDINATES OF THIS POINT. 

-IN 

DROT (3,3) - ROTA I ON INCREMENT MATRIX . 

-IN 

PNEWDT - RATIO OF SUGGESTED NEW TIME INCREMENT TO THE 
TIME INCREMENT BEING USED. 

-UPDATE 

CELENT - CHARACTERISTIC ELEMENT LENGTH. 

-IN 

DFGRDO (3,3) - ARRAY CONTAINING DEFORMATION GRADIENT 
AT THE BEGINNING OF THE INCREMENT 
-IN 

DFGRD1 (3,3) - ARRAY CONTAINING DEFORMATION GRADIENT 
AT THE END OF THE INCREMENT 
-IN 

NOEL - ELEMENT NUMBER 
-IN 

NPT - INTEGRATION POINT NUMBER 
-IN 

LAYER - LAYER NUMBER (FOR COMPOSITE SHELLS 
AND LAYERED SOLID S) . 

-IN 

KSPT - SECTION POINT NUMBER WITHIN THE CURRENT LAYER 
-IN 

KSTEP - STEP NUMBER 
-IN 
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KINC - INCREMENT NUMBER 
-IN 


111111111122222222223333333333444444444455555555556666666666777 
C2 34567890123456789012345678901234567890 12 345678901234567890123456789 
012 


INCLUDE ' ABA_PARAM . INC ' 

PARAMETER (ZERO = 0.0D0, HALF = 0.5D0) 

PARAMETER (ONE = 1 . 0D0 , TWO = 2.0D0, THREE = 3.0D0) 
PARAMETER ( NFROM_UTHERM = 1, NFROM_UMECH = 2) 

CHARACTER* 8 CMNAME 

CHARACTER* 80 FNAME 
CHARACTER* 80 EXTSION 
CHARACTER* 80 DFNAME 
CHARACTER* 80 PATH 

CHARACTER* 80 TNAME1 
CHARACTER* 80 TNAME2 


DIMENSION STRESS (NTENS) 
DIMENSION STATEV (NSTATV) 
DIMENSION DDSDDE (NTENS, 
DIMENSION DDSDDT (NTENS) 
DIMENSION DRPLDE (NTENS) 
DIMENSION STRAN (NTENS) 
DIMENSION DSTRAN (NTENS) 
DIMENSION TIME (2) 
DIMENSION PREDEF ( 1 ) 
DIMENSION DPRED(l) 
DIMENSION PROPS (NPROPS) 
DIMENSION COORDS (3) 
DIMENSION DROT ( 3 , 3) 
DIMENSION DFGRD0 ( 3 , 3) 
DIMENSION DFGRD1 ( 3 , 3) 


NTENS ) 


DIMENSION PLSTRAN ( 6 ) 

DIMENSION OSTRESS ( 6 ) 
DIMENSION OSTRAIN ( 6 ) 
DIMENSION ODSTRAIN ( 6 ) 

INTEGER N(2) 

INTEGER AB_PRINT 
INTEGER GAB_PRINT 
INTEGER AL_STORE 
INTEGER AB_STEP 


COMMON / KINCINFO / AB_STEP, INC, NCYCLE 
COMMON / KTIME / STEP_TIME, TOT_TIME, GDT 

COMMON / KMACFLAGS / NFIRSTTIME, NFIRSTELEM , NFIRSTIP, 

& AL_STORE, N_PEN(100) , N_PIN(100), NPEL, 

&. N_PATPEN ( 100 ) , N_PATPIN(100) , NPATPEL, 

& AB_PRINT, GAB_PRINT , SIGAL_STATV, NCALL, NFEA_FROM 

COMMON / KABNAMES / PATH, FNAME, DFNAME, TNAME1 , TNAME2 , EXTSION 
COMMON / KPREMAC / NDU, NNOEL, NNPT, NNDI, NNSHR 
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COMMON / KTHERMONLY / DTHERMSTRESS ( 6 ) , DTHERMSTRAIN ( 6 ) , 

& DDTHERMSTRAIN_DT ( 6 ) , THERMSTRESS ( 6 ) , THERMSTRAIN ( 6 ) 


LOGICAL S IGAL_STATV 




NFEA_FROM = NFROM_UMECH 


Q******************************** 

C KEEP TRACK OF THE NUMBER OF CALLS TO FEAMAC 
£*★********************★****★**** 

C IF NCALL == l->2 : WE HAVE ALREADY BEEN TO THERMAL 
C IF NCALL == 0— >1 : NO THERMAL WAS REQUESTED OR DTEMP IS ZERO 
NCALL = NCALL + 1 


£******************************** 

C FLAG TO DETERMINE HOW DATA WILL BE STORED 

C IF SIGAL_STATV == TRUE - DATA STORED IN STATE VARIABLE 
C SPACE PROVIDED BY ABAQUS 

C IF SIGAL_STATV == FALSE - DATA STORED IN FILES 
£+*****★****★★*★***★★****★ + ***** + 

SIGAL_STATV = .TRUE. 

AB_PRINT = GAB_PRINT 
IF ( NPROPS .GE. 1 ) THEN 

IF ( PROPS (1) .EQ. 2 ) S IG AL_STATV = .FALSE. 

IF { NPROPS .GE. 2 ) AB_PRINT = INT ( PROPS ( 2 ) ) 

ELSE 

SIGAL_STATV = .FALSE. 

ENDIF 


N ( 1 ) = NOEL 
N ( 2 ) = NOEL 

IF ( AB_PRINT .GE. 1 ) THEN 


WRITE (NDU, 
WRITE (NDU, 

*) 

*) 


ii 

II 

ll 

ll 

ll 

n 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

ll 

II 

ll 

II 

= = 


WRITE (NDU, 

*) 

' -=> 

START OF UMAT <=-' 



WRITE (NDU, 

*) 

' -=> 

STORE IN STATEV ? 

= ' , 

S IGAL_STATV 

WRITE (NDU, 

*) 

' “=> 

VALUE OF STEP TIME 

= ' , 

TIME ( 1 ) , STEP_TIME 

WRITE (NDU, 

*) 

' - = > 

TOTAL TIME 

= ' , 

TIME ( 2 ) , TOT_TIME 

WRITE (NDU, 

*) 

' - = > 

DTI ME 

= ' , 

DTIME, GDT 

WRITE (NDU, 

*) 

' - = > 

KSTEP 

= ' , 

KSTEP, AB_STEP 

WRITE (NDU, 

*) 

' - = > 

KINC 

= ' , 

KINC, INC+1 

WRITE (NDU, 

*) 

' -=> 

NOEL 

= ' , 

NOEL , NNOEL 

WRITE (NDU, 

*) 

' -=> 

NPT 

= ' , 

NPT, NNPT 

WRITE (NDU, 

*) 

' - = > 

NCYCLE 

= ' , 

NCYCLE 

WRITE (NDU, 

*) 

' -=> 

NFIRSTELEM 

= ' , 

NFIRSTELEM 

WRITE (NDU, 

*) 

' - = > 

NFIRSTIP 

= ' , 

NFIRSTIP 

WRITE (NDU, 

*) 

' “ = > 

NCALL 

= ' , 

NCALL 

WRITE (NDU, 

*) 

' ~ = > 

FNAME = | ' , FNAME, 

' 1 ' 


WRITE (NDU, 

*) 

' “ = > 

TEMP = ' , TEMP 



WRITE (NDU, 

*) 

' - = > 

DTEMP = ' , DTEMP 



WRITE (NDU, 

*) 

'STRAIN IN: ' 



WRITE (NDU, 

*) 

' 1 ' - 

STRAN(l), STRAN ( 2 ) 

, STRAN ( 3 ) 
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WRITE (NDU, 

*) 

' 

', STRAN ( 4 ) , STRAN ( 5 ) , STRAN ( 6 ) 

WRITE (NDU, 

*) 

' DSTRAIN IN: ' 

WRITE (NDU, 

*) 

\ 

' , DSTRAN ( 1 ) , DSTRAN ( 2 ) , DSTRAN ( 3 ) 

WRITE (NDU, 

*) 

\ 

', DSTRAN (4) , DSTRAN ( 5 ) , DSTRAN ( 6 ) 

WRITE (NDU, 

*) 

'STRESS IN:' 

WRITE (NDU, 

*) 

x 

' , STRESS ( 1 ) , STRESS { 2 ) , STRESS (3) 

WRITE (NDU, 

*) 

\ 

STRESS (4 ) , STRESS ( 5 ) , STRESS (6) 

WRITE (NDU, 

*) 

x 

CMNAME = | ' , CMNAME, ' | ' 

WRITE (NDU, 

*) 

\ 

NDI = ' , NDI 

WRITE (NDU, 

*) 

> 

NSHR = ' , NSHR 

WRITE (NDU, 

*) 


NTENS = ' , NTENS 

WRITE (NDU, 

*) 


NSTATV = ' , NSTATV 

WRITE (NDU, 

*) 

* 

NPROPS = ' , NPROPS 

WRITE (NDU, 

*) 

\ 

CELENT = ' , CELENT 

WRITE (NDU, 

*) 

< 

NOEL = NOEL 

WRITE (NDU, 

*) 

X 

NPT = ' , NPT 

WRITE (NDU, 

*) 

X 

LAYER = ' , LAYER 

WRITE (NDU, 

*) 

X 

KSPT = ' , KSPT 

WRITE (NDU, 

*) 

X 

KSTEP = ' , KSTEP 

WRITE (NDU, 

*) 

X 

KINC = ' , KINC 

WRITE (NDU, 

*) 

' - 

Z 

II 

£ 

A 

II 

WRITE (NDU, 

*) 

' - 

-=> INC INC 

WRITE (NDU, 

*) 

X 

■=> NCYCLE =', NCYCLE 

WRITE (NDU, 

*) 

' - 

-=> TEMP =', TEMP 

WRITE (NDU, 

*) 

' - 

-=> DTEMP =', DTEMP 

WRITE (NDU, 

*) 

X _ 

-=> BEFORE FEAMAC_PRE <=- ' 


END IF 


DO J = 1, 6 

OSTRESS ( J) = STRESS (J) 

STRAN(J) = STRAN(J) + THERMSTRAIN ( J) 
DSTRAN ( J ) = DSTRAN(J) + DTHERMSTRAIN ( J ) 

OSTRAIN ( J) = STRAN(J) 

ODSTRAIN ( J) = DSTRAN (J) 

ENDDO 


CALL FEAMAC_PRE (DDSDDE, PLSTRAN, STRAN, DSTRAN, STRESS, STATEV, 
NSTATV, NTENS , N, NPT, LAYER, NDI, NSHR, 

TEMP, DTEMP, THERMSTRAIN) 


IF ( (NCALL .EQ. 2) .AND. (NCYCLE .NE. 0) ) THEN 

DO I = 1, 6 

STRESS (I) = OSTRESS (I) 

DO J = 1, 6 

STRESS (I) = STRESS (I) 

& + DDSDDE ( I , J) * (ODSTRAIN ( J) - DTHERMSTRAIN (J) ) 

ENDDO 
ENDDO 


DO J = 1, 6 


200 



onnonoo 


MAC/GMC. M icromechanics A nalysis C ode 


IF ( DTEMP .NE. 0.0 ) THEN 

DDSDDT { J) = DTHERMSTRESS ( J) / DTEMP 
ELSE 

DDSDDT ( J) = 0.0 
END IF 

DRPLDE(J) = 0.0 
ENDDO 
RPL = 0.0 
DRPLDT = 0.0 
END IF 


IF ( AB_PRINT .GE. 1 ) THEN 

WRITE (NDU, *) '-=> AFTER FEAMAC_PRE <=- ' 


WRITE (NDU, *) ' DTHERMAL STRESS:' 

WRITE (NDU, *) DTHERMSTRESS ( 1 ) , DTHERMSTRESS ( 2 ) , 

& DTHERMSTRESS (3) 

WRITE (NDU, *) DTHERMSTRESS (4) , DTHERMSTRESS ( 5 ) , 

& DTHERMSTRESS (6) 


WRITE (NDU, *) 'DTHERMAL STRAIN:' 

WRITE (NDU, *) ’I', DTHERMSTRAIN ( 1 ) , DTHERMSTRAIN ( 2 ) , 

& DTHERMSTRAIN ( 3 ) 

WRITE (NDU, *) '|', DTHERMSTRAIN ( 4 ) , DTHERMSTRAIN ( 5 ) , 

& DTHERMSTRAIN ( 6 ) 


WRITE (NDU, *) 'DDSDDT:' 

WRITE (NDU, *) '|', DDSDDT (1) , DDSDDT ( 2 ) , 

& DDSDDT ( 3 ) 

WRITE (NDU, *) '|', DDSDDT (4), DDSDDT (5), 

& DDSDDT ( 6 ) 


WRITE (NDU, *) '-=> END OF UMAT <=- ' 

ENDIF 


C WHATEVER IS IN STRAN/DSTRAN WILL SHOW UP AS MECHANICAL STRAIN 
C MECHANICAL STRAIN + THERMAL STRAIN WILL GIVE GLOBAL STRAIN 
C WHATEVER IS IN STRESS WILL BE GIVEN AS GLOBAL STRESS 
DO I = 1, 6 

STRAN(I) = OSTRAIN ( I ) - THERMSTRAIN ( I ) 

DSTRAN ( I ) = ODSTRAIN ( I ) - DTHERMSTRAIN ( I ) 

ENDDO 

NFIRSTTIME = 0 

RETURN 

END 


C 

1111111111222222222233333333334444444444555555555566666666667777777 

7778 

C2 345678901234567890123456789012345 67 89012345678901234567890123456789 
01234 


/ / / / / |/ // \/ 

////_/ | ///_/// 

/ /_/ / / / |/ / _ 

\ / / /_/ | _/_/ /_/ 


/ 

I / 

_ / / 

I-/-/ 


/ / 
/ / 

/ 

/ 


1111111111222222222233333333334444444444555555555566666666667777777 

7778 
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C2 345678901234567890123456789012345678901234567890123456789012345678901234 

SUBROUTINE UEXPAN ( EXPAN, DEXPANDT, TEMP, TIME, DTIME, PREDEF, 

& DPRED, STATEV, CMNAME, NSTATV) 

INCLUDE ' ABA_PARAM . INC ' 

PARAMETER (ZERO = 0 . 0D0 , HALF = 0.5D0) 

PARAMETER (ONE = 1 . 0D0 , TWO = 2.0D0, THREE = 3.0D0) 

PARAMETER ( NFROM_UTHERM = 1, NFROM_UMECH = 2) 


CHARACTER* 8 CMNAME 

DIMENSION EXPAN(*) , DEXPANDT (*) , TEMP (2), TIME (2), PREDEF (* ) 
DIMENSION DPRED(*) , STATEV (NSTATV) 

CHARACTER* 80 FNAME 
CHARACTER* 80 EXTSION 
CHARACTER* 80 DFNAME 
CHARACTER* 80 PATH 

CHARACTER* 80 TNAME1 
CHARACTER* 80 TNAME2 

DIMENSION STRAN ( 6 ) , DSTRAN ( 6 ) 

DIMENSION STRESS (6) 

DIMENSION PLSTRAN ( 6 ) 

DIMENSION DDEDDT ( 6 , 6) 

INTEGER N ( 2 ) 

INTEGER AB_PRINT 
INTEGER GAB_PRINT 
INTEGER AL_STORE 
INTEGER AB_STEP 


COMMON / KINCINFO / AB_STEP, INC, NCYCLE 
COMMON / KTIME / STEP_TIME , TOT_TIME, GDT 

COMMON / KMACFLAGS / NFIRSTTIME, NFIRSTELEM, NFIRSTIP, 

AL_STORE , N_PEN ( 100 ) , N_PIN(100), NPEL, 

N_PATPEN ( 100 ) , N_PATPIN ( 100 ) , NPATPEL , 

AB_PRINT, GAB_PRINT , S IGAL_STATV , NCALL , NFEA_FROM 

COMMON / KABNAMES / PATH, FNAME, DFNAME, TNAME1 , TNAME2 , EXTSION 
COMMON / KPREMAC / NDU, NNOEL, NNPT, NNDI , NNSHR 
COMMON / KTHERMONLY / DTHERMSTRESS ( 6 ) , DTHERMSTRAIN ( 6 ) , 

& DDTHERMSTRAIN_DT ( 6 ) , THERMSTRESS ( 6 ) , THERMSTRAIN ( 6 ) 


LOGICAL S IGAL_STATV 


NFEA_FROM = NFROM_UTHERM 

AB_PRINT = GAB_PRINT 

DO J = 1, 6 

PLSTRAN (J) = 0.0 
STRAN ( J) = 0.0 
DSTRAN (J) = 0.0 
STRESS (J) = 0.0 
PLSTRAN (J) =0.0 
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DTHERMSTRESS ( J) = 0.0 
DTHERMSTRAIN ( J) =0.0 
DDTHERMSTRAIN_DT { J) = 0.0 
DO I = 1, 6 

DDEDDT ( I , J) =0.0 
ENDDO 

EXPAN (J) =0.0 
DEXPANDT ( J ) =0.0 
ENDDO 

C NOTE THE "TIME" ARRAY FOR THIS ROUTINE IS PROVIDED AT THE -E N D- 
OF THE INCREMENT 

TIME ( 1 ) = TIME ( 1 ) - DTI ME 
TIME (2) = TIME (2) - DTI ME 

C NOTE THE "TEMP" ARRAY FOR THIS ROUTINE IS PROVIDED AT THE -E N D- 
OF THE INCREMENT 
DTEMP = TEMP (2) 

TEMP ( 1 ) = TEMP { 1 ) - DTEMP 
TEMPERATURE = TEMP(l) 


IF ( DTEMP .EQ. 0.0 ) THEN 

C WRITE (NDU, *) ' UEXPAN EARLY EXIT - DTEMP = DTEMP, 

C & ' TEMP = ' , TEMPERATURE 

RETURN 
END IF 

NCALL = NCALL + 1 
SIGAL_STATV = .FALSE. 

IF { AB_PRINT .GE. 1 ) THEN 


WRITE (NDU, 
WRITE (NDU, 

*) 

*) 










, ' 

WRITE (NDU, 

*) 

' -=> 

START OF UEXPAN <= 

_ t 


WRITE (NDU, 

*) 

' - = > 

VALUE OF STEP 

TIME 

= ' , 

TIME ( 1 ) , STEP_TIME 

WRITE (NDU, 

*) 

' - = > 

TOTAL TIME 


= ' , 

TIME (2), TOT_TIME 

WRITE (NDU, 


' “ = > 

DTIME 


= ' , 

DTIME, GDT 

WRITE (NDU, 

*) 

' -=> 

KSTEP 


= 9 , 

AB_STEP 

WRITE (NDU, 

*) 

' - = > 

KINC 


= ' , 

INC + l 

WRITE (NDU, 

*) 

' - = > 

NOEL 


= ' , 

NNOEL 

WRITE (NDU, 

*) 

' - = > 

NPT 


= ' , 

NNPT 

WRITE (NDU, 

*) 

' ~ = > 

NNDI 


= ' , 

NNDI 

WRITE (NDU, 

*) 

' - = > 

NMSHR 


= ' , 

NNSHR 

WRITE (NDU, 

*) 

' “=> 

NCYCLE 


= ' , 

NCYCLE 

WRITE (NDU, 

*) 

' -=> 

NFIRSTELEM 


= ' / 

NFIRSTELEM 

WRITE (NDU, 

*) 

' -=> 

NFIRSTIP 


= ' # 

NFIRSTIP 

WRITE (NDU, 

*) 

' - = > 

NCALL 


= ' , 

NCALL 

WRITE (NDU, 

*) 

' “ = > 

FNAME =1', FNAME, 

M' 


WRITE (NDU, 

*) 

' - = > 

TEMPERATURE = 

' , TEMPERATURE 

WRITE (NDU, 

*) 

' - = > 

DTEMP = ' , DTEMP 



WRITE (NDU, 

*) 

'- = > 

BEFORE FEAMAC 

_PRE 

< = - ' 



END IF 


N ( 1 ) = NNOEL 
N ( 2 ) = NNOEL 
LAYER = 0 
NTENS = 6 


203 



MAC/GMC. Micromechanics A nalysis Code 


C NOTE: HERE DSTRAN IS NOT A RATE BUT THE ALPHAS INSTEAD - I.E. THE 
VARIATION OF THERMAL 

C STRAINS WITH RESPECT TO TEMPERATURE (NOT TIME) 

CALL FEAMAC_PRE ( DDEDDT , PLSTRAN, STRAN, DSTRAN, STRESS, 
STATEV, 

& NSTATV, NTENS, N, NNPT, LAYER, NNDI , NNSHR, 

& TEMPERATURE, DTEMP , THERMSTRAIN) 

C NOTE: THESE ARE INCREMENTS IN THERMAL STRAIN/STRESS 
C NEED TO FIGURE OUT A GOOD WAY TO GET THE SIZES OF THESE 
DO J = 1, 6 

EXPAN (J) = STRAN (J) 

DTHERMSTRAIN ( J) = STRAN (J) 

DDTHERMSTRAIN_DT ( J ) = DSTRAN (J) 

DEXPANDT ( J) = DSTRAN (J) 

ENDDO 

DO I = 1, 6 

DTHERMSTRESS ( I ) = 0.0 
DO J = 1, 6 

DTHERMSTRESS (I) = DTHERMSTRESS ( I ) 

& + DDEDDT (I, J) * DTHERMSTRAIN (J) 

ENDDO 

STRESS (I) = DTHERMSTRESS ( I ) 

ENDDO 

RETURN 

END 


C 

111111111122222222223333333333444444444455555555556666666666777 
C2 3456789012345678901234567890123456789012345678901234567890123456 
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6.16 Example P: Non-Symmetric Laminate 

Sample Input File For Non-Svmmetric Laminate Problem 
The following example is used to explain the use of monolithic layer in more detail. 
Problem Summary : 

Thermomechanical 
1 1 -direction (applied mid-plane strain) 
Monotonic 
Strain 


Load Type: 

Load Component: 
Load History: 

Load Control: 

Load History Data: 


Micromechanics model: 
Laminate Details: 


Cool-down from 371. 1°C to 21.1 °C then hold 
temperature constant during mechanical load- 
ing 

t = 35. °C/sec 

e = l.jcl0 _3 /sec, E max = 0.01 , 


Zmin = °- 


A * thermal ~ 0-^5 SeC > ^ mech ~ SeC 


Laminate Option 


Layer 

Thickness 

(mm) 

Fiber 

Matrix 

Fiber 

Volume 

Fraction 

Unit Cell 

Packing 

Arrangement 

Angle 

1 

1 

mono- 

lithic 

Aluminum 

(2024-T4) 

- 

- 

- 

- 

2 

1 

Graphite 

T-50 

Aluminum 

(2024-T4) 

30% 

2x2 sub- 
cells 

square 

90 

3 

1 

Graphite 

T-50 

Aluminum 

(2024-T4) 

30% 

2x2 sub- 
cells 

square 

0 


Integration Algorithm: Forward Euler 

Constituent Material Model: Bodner-Partom 
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^ Note: The laminate analyzed in this example is shown in following figure. 
The macro output for the laminate option consists of stress result- 
ants and mid-plane strains. The micro output is always in the local 
coordinates of the layer in question. Micro output is given for both 
integration points within the layer in question. 


X 3 
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example of a non-symmetric laminate with monolithic and heterogeneous layers 
‘PRINT 
NPL=0 % 

‘LOAD 

LCON=3 LOP=1 LSS=1 
*MECH 

NPTW=3 Tl=0.0, 10.0, 20.0 LO=0.0, 0.0, 0.01 
‘THERM 

NPTT=3 Tl=0.0, 10.0, 20.0 & 

TE=371.1, 21.1, 21.1 % 

‘MODEL 

MOD=3 MATSYS=2 NLY=3 THK=0.001 ,0.001 ,0.001 CON=1 ,2,2 & 

SYS=1 ,2,2 ANG=0.,90.,0. % 

‘SOLVER 

NTF=1 NPTS=3 TIM=0.0, 10.0, 20.0 STP=0.05, 0.01 % 

‘FIBER 

NFIBS=1 

NF=1 MS=2 MF=9 NDPT=2 MAT=A D=1.,0.,0.% 

‘MATRIX 

NMATX=1 

NM=1 MS=2 MM=1 NDPT=2 MAT=A % 

‘MONOL 

NMON=1 

NMO=1 MS=1 MMO=1 NDPT=2 MAT=A % 

*MRVE 
IDP=0,1 ,1 
L=1 

L=2 VF=0.3 
L=3 VF=0.3 % 

‘CURVE 
NP=20 % 

‘MACRO 

NT=1 

NC=1 X=1 Y=7 NAM=lam-x % 

‘MICRO 

NT=3 

NC=1 LYR=1 X=37 Y=1 NAM=lam-x1 

NC=2 LYR=2 CELL=2 X=37 Y=2 NAM=lam-x2 

NC=3 LYR=3 CELL=2 X=37 Y=1 NAM=lam-x3 % 

‘END 
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The following figures were obtained from the macro and micro x-y plot data files 
produced by the present example. 


xlO* 



Global Level Results 


xlO 2 



Local Level Results 

«■ Note: The increasing magnitude of the strain towards the lower surface of 
the laminate is due to the increased bending resulting from the 
nonsymmetric lay-up. 
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6.17 Example Q: Yield Surface Plot 

Sample Input File for a Yield Surface Plot 

The following example is used to explain the yield surface capabilities in more 
detail. 


Problem Summary: 
Load Type: 

Load Component: 
Load History: 

Load Control: 

Load History Data: 


Themomechanical 

Combined 11 -component and 22-component 

Yield surface probing 

Strain 

Constant temp. = 23 0 C 
e=1.0x10' 5 /sec , e majt =0.05, e m(n =0. 

(along each probing angle) 

At = 5. sec. 


Micromechanics model: Double Periodicity 

Fiber Packing Arrangement: Square pack at 35% fiber volume ratio 

Integration Algorithm: Forward Euler 

Constituent Material Model: Fiber: Elastic 

Matrix: GVIPS - isotropic form 

Constituents: Fiber: SCS-6 (properties input manually) 

Matrix: TIMETAL21S 
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test of yield surface option 
‘PRINT 
NPL=0 % 

‘LOAD 

LCON=3 LOP=1 LSS=1 % 

*MECH 

NPTW=2 Tl=0.,5000. L0=0.,0.05 % 

‘THERM 

NPTT=2 Tl=0.,5000. TE=23.,23. % 

‘SURF 

NPRE=0 ISP=1 IAN=10 
C1=10.E-6 C2=1 .45E-7 C3=0.0 C4=0.0 
‘MODEL 
MOD=1 % 

‘SOLVER 

NTF=1 NPTS=2 TIM=0.,5000. STP=5. % 

‘FIBER 

NFIBS=1 

NF=1 MF=6 NDPT=1 MAT=U IFM=1& 
EL=58.E3,58.E3, 0.20,0.20, 24.1 67E3,4.5E-6,4.5E-6 % 
‘MATRIX 
NMATX=1 

NM=1 MM=4 NDPT=2 MAT=A % 

*MRVE 

IDP=1 VF=0.35 % 

‘CURVE 
NP=1 % 

‘MACRO 

NT=1 

NC=1 X=2 Y=8 NAM=surf % 

‘END 


Note: A zero value for a given criteria means that specific criteria will be 

immediately satisfied, consequently the output associated with that cri- 
teria is meaningless. The output associated with the nonzero criteria 
are correct. 
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Equiv. Plastic Strain= l.OE-O' 

SCRD = 1.45E-07 Ksi/sec 


Code 


* 




o n (Ksi) 


Resulting yield surface 
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6.18 Example R: Ellipsoidal Inclusions 

Sample Input File for Ellipsoidal Inclusions 


Problem Summary 
Load Type: 

Load Direction: 
Load History: 

Load Control: 

Load History Data: 


Thermomechanical 


33 

Monotonic 


Strain 


Hold temperature during mechanical loading 
e=6.667x10* s /sec, c m „=0.01, e mi „=0. 

T = 427 °C; =0.01 sec. 


Micromechanics Model: 


Triple Periodicity 


Repeating Unit Cell: 

Integration Algorithm: 
Constituent Material Model: 

Constituents: 


Ellipsoidal Inclusion RVE (IDP=4) 
a = 1 , b = 1 , c = 1 .3, d/h = 1 , l/h = 1 

Predictor/Corrector 

Fiber: Elastic 
Matrix:TGVIPS 

Fiber: SCS-6 
Matrix:Ti-6-4 
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*PRINT 
NPL=1 % 

‘LOAD 

LCON=3 LOP=3 LSS=1 % 

*MECH 

NPTW=2 Tl=0.0, 150.0 LO=0.0, 0.01 % 

‘THERM 

NPTT=2 Tl=0.0, 150.0 TE=427.0, 427.0 % 

‘MODEL 
MOD=2 % 

‘SOLVER 

NTF=2 ISTM=0.01 ISTT=5. ERR=0.01 % 

‘FIBER 

NFIBS=1 

NF=1 MF=6 NDPT=2 MAT=E % 

‘MATRIX 

NMATX=1 

NM=1 MM=7 NDPT=2 MAT=A D=1.0, 1.0, 1.0% 
*MRVE 
IDP=4 

OPT=2 VF=0.3 A=1 B=1 C=1.3 RD=1 RL=1 % 

# OPT=2 VF=0.3 A=1 B=1 C=1.2 RD=1 RL=1 % 

# OPT=2 VF=0.3 A=1 B=1 0=1 . RD=1 RL=1 % 

# OPT=2 VF=0.3 A=1 B=1 0=0.83333 RD=1 RL=1 % 
‘CURVE 

NP=1 % 

‘MACRO 

NT=1 

NC=1 X=3 Y=9 NAM=ellipsoid % 

‘END 


■s’ Note: To generate the four curves shown in the plot, change which line does 
not start with “#” under *MRVE 
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Results of Discontinuously reinforced composite with 30% volume fraction 
of ellipsoidal inclusions 


*3* Note: As the ellipsoidal inclusion becomes longer and thinner (i.e., increasing 
c) and thus more fiber-like, the response becomes stiffen 
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6.19 Example S: PATRAN/MSC MACPOST Output 

Sample Input File for PATRAN/MSC MACPOST Output 
Problem Summary 

Load Type: Thermomechanical 

Load Direction: 33 


Load History: 

Load Control: 

Load History Data: 


Monotonic 

Strain 

Cool from 900°C to 23°C, then hold temperature 
during mechanical loading 

T =0.01 52 °C/sec 

£=1.667x1 O’ 4 /sec. e„„ =0.015, £„, =0. 


At 


thermal 


= 100 sec.; At mech =0.1 sec. 


Micromechanics Model: 
Fiber Packing Arrangement: 
Repeating Unit Cell: 
Integration Algorithm: 
Constituent Material Model: 

Constituents: 

PATRAN Output: 


Double Periodicity 

Square Pack, 40% fiber volume ratio 
26x26 circular fiber cross-section approximation 
Forward Euler 
Fiber: Elastic 

Matrix: GVIPS - isotropic form 

Fiber: SCS-6 

Matrix: TIMETAL21S 

Start output after cooldown: tpre = 57600 sec. 
Write to output files every 300 time steps 
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test of PATRAN output 
•PRINT 

NPL=1 % 

•LOAD 

LCON=3 LOP=3 LSS=1 % 

*MECH 

NPTW=3 Tl=0., 57600., 57690. L0=0.,0.,0.015 % 
•THERM 

NPTT=3 Tl=0., 57600., 57690. TE=900.,23.,23. % 
•MODEL 

MOD=1 % 

•PATRAN 

FN=apdxs TPRE=57600 STP=300 % 

•SOLVER 

NTF=1 NPTS=3 TIM=0., 57600., 57690. STP=100,0.1 % 
•FIBER 

NFIBS=1 

NF=1 MF=6 NDPT=2 MAT=E % 

•MATRIX 

NMATX=1 

NM=1 MM=4 NDPT=2 MAT=A % 

*MRVE 

IDP=13 VF=0.4 R=1 
•CURVE 

NP=2 % 

•MACRO 

NT=1 

NC=1 X=3 Y=9 NAM=apdxs 
•END 
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Contour of the microlevel J 2 invariant at 1.5% macrostrain (@ pt. A) 
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Contour of the microlevel ^ invariant at 1.5% macrostrain (@ pt. A) 
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6.20 Example T: Effective Thermal Conductivity Calculation 

Sample Input File For Effective Thermal Conductivity Calculation 

The following example is used to explain the calculation of effective ther- 
mal conductivities. 

Problem Summary: 

Loading: Not Used (nplvl = -1 used to determine effective 

properties only) 


Micromechanics Model: Double Periodicity 

Fiber Packing Arrangement: Square Pack, R = 1., 50% fiber volume ratio 
Repeating Unit Cell: 7x7 circular fiber cross-section approximation 


Integration Algorithm: Not Used 

Constituent Material Model: Fiber: Elastic, isotropic 


Matrix: 

Constituents: Fiber: 

Matrix: 


Bodner-Partom (viscoplastic properties 
not used) 

Fictitious temperature dependent mate- 
rial (based loosely on tungsten) 

Fictitious temperature dependent mate- 
rial (based loosely on aluminum) 
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Test of user input properties with thermal conductivity 
‘PRINT 
NPL=-1 % 

‘LOAD 

LCON=3 LOP=2 LSS=1 % 

*MECH 

NPTW=3 Tl=0.,200.,218. LO=0.,0., 0.015 % 
‘THERM 

NPTT=3 Tl=0.,200.,218. TE=600.,21.,21. % 
‘MODEL 
MOD=1 % 

*COND 

‘SOLVER 

NTF=1 NPTS=3 TIM=0.,200.,21 8 STP=0.2,0.01 % 
‘FIBER 
NFIBS=1 

NF=1 MF=6 NDPT=2 MAT=U IFM=1 
NTP=4 

TEM=1 8., 200. ,400., 600. 
EA=314.1E9,300.E9,280.E9,200.E9 
ET=314.1 E9,300.E9,280.E9,200.E9 
NUA=0.41 ,0.41 ,0.41 ,0.41 
NUT=0.41, 0.41, 0.41 ,0.41 
GA=1 1 1 .38E9.1 06.38E9.99.29E9.70.92E9 
ALPA=4.5E-6,4.8E-6,5. 1 E-6.5.5E-6 
ALPT=4.5E-6,4.8E-6,5.1E-6,5.5E-6 
KA=0.2, 0.25, 0.31, 0.44 
KT=0.2, 0.25, 0.31 ,0.44 
‘MATRIX 
NMATX=1 

NM=1 MM=1 NDPT=2 MAT=U IFM=1 
NTP=4 

TEM=1 8. ,200. ,400. ,600. 
EA=72.E9,67.E9,55.E9,33.E9 
ET=72.E9,67.E9,55.E9,33.E9 
NUA=0.33, 0.33, 0.33, 0.33 
NUT=0.33, 0.33, 0.33, 0.33 
GA=27.07E9,25. 1 9E9,20.68E9,1 2.41 E9 
ALPA=22.E-6,24.E-6,28.E-6,33.E-6 
ALPT=22.E-6,24.E-6,28.E-6,33.E-6 
V1=1.E4, 1.E4, 1.E4, 1.E4 
V2=340.E6, 340.E6, 340.E6, 340.E6 
V3=435.E6, 435.E6, 435.E6, 435.E6 
V4=300.0, 300.0, 300.0, 300.0 
V5=10.0, 4.0, 1.6, 0.55 
V6=1 .0, 1.0, 1.0, 1.0 
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KA=40.,38.,35.,29. 

KT=40.,38.,35.,29. 

*MRVE 

IDP=6 VF=0.5 R=1. % 
‘CURVE 
NP=10 % 

‘MACRO 

NT=1 

NC=1 X=2 Y=8 NAM=apdxt % 
‘END 


Thermal conductivity results from outfile: 


Effective Thermal Conductivities 

At Temperature = 1 8.0 
K Axial = 0.201 E+02 

K Transverse = 0.889E+01 

At Temperature = 200.0 
K Axial = 0.1 91 E+02 

K Transverse = 0.852E+01 

At Temperature = 400.0 
K Axial = 0.177E+02 

K Transverse = 0.795E+01 

At Temperature = 600.0 
K Axial = 0.147E+02 

K Transverse = 0.683E+01 
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